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A 128: come raddoppiare 
la memoria 


Comprate un Apple Ile, dotatelo della scheda di espansione 80 colonne 
64 Kbyte e il secondo Apple ve lo regalo io. 


di Stefano Gollini 


S i tranquillizzino i rivenditori Apple e non pren- 
dano alia lettera quanto ho detto sopra: in 
realtà non regalo materialmente un altro com- 
puter, ma ai fini pratici è come se lo facessi, in 
quanto rendo possibile l'utilizzo della scheda di 
espansione come sistema operativo totalmente 
indipendente dal sistema principale. All'occor- 
renza, comunque, strettamente collegato a que- 
sto, offrendo la possibilità di trasferire dei dati da 
un sistema all'altro. 

Più dettagliatamente, A 128 è un programma 
in linguaggio macchina che permette la gestio- 
ne della scheda di espansione 80 colonne-64 
Kbyte per Apple lie direttamente dal BASIC, senza 
dover ricomere a subroutine in linguaggio mac- 
china che, oltre a non essere alla portata di tutti, 
sono limitative poiché normalmente provvedono 
al semplice trasferimento di interi blocchi di me- 
moria, dalla scheda di espansione alla mother 
board o viceversa. 

Questo programma, al contrario, consente di 
utilizzare la scheda come un secondo sistema in 
tutto e per tutto uguale al primo (il secondo Ap- 
ple di cui parlavo prima) sul quale eseguire un 
qualsiasi programma. Anche totalmente estra- 
neo al programma residente in mother board e 
con la non indifferente possibilità di trasferire in 
qualsiasi momento i valori delle variabili BASIC da 
un sistema all'altro. 

Prima ancora di addentrarmi in spiegazioni tec- 
niche riguardo al programma, vi fomisco la rispo- 
sta al quesito che vi sarete certamente già posti: 
A COSA SERVE? 

Visto che la memoria RAM a vostra disposizione è 
raddoppiata, potete utilizzarla per caricare in 
memoria un grande numero di stringhe e lavora- 
re in tempo reale, senza estenuanti accessi al 
disco, soprattutto nei programmi gestionali che 
effettuano spesso dei riordini. 

lo, ad esempio, lo utilizzo nelmio programma di 
magazzino caricando sulla scheda di espansio- 
ne la descrizione (35 caratt.) di tutti e 1000 gli 
articoli e tenendo il gestionale vero e proprio sulla 
scheda principale richiamando poi, quando ne- 
cessario, le variabili definite nell'altra parte. 
Potete usare la scheda di espansione permemo- 
rizzare temporaneamente delle variabili impor- 
tanti (mentre fate un po' di pulizia con un CLEAR 
sulla scheda principale) per poi richiamarle subi- 
to dopo; potete inoltre memorizzare qualsiasi sub- 
routine sull'espansione (magari variandole du- 


rante lo svolgimento del programma principale 
che sarà caricato nella principale) e utilizzare 
dall'altra parte i dati elaborati dalle subroutine 
stesse. 
Mentre programmate tenete CONVERTER oppure 
FID da una parte e il vostro programma dall'altra, 
così non sarete costretti a scaricare e ricaricare 
soventemente. 
Al momento del lancio dell'utility tutti i 65536 byte 
della mother board (che per brevità da adesso in 
avanti chiameremo MAIN) vengono copiati sulla 
scheda di espansione 64 Kbyte (che chiamere- 
mo AUX), che viene così ad essere una perfetta 
copia del nostro Apple; l'unica differenza consiste 
nel programma BASIC che troviamo in aux subito 
dopo la sua inizializzazione. 

Tale programma, indipendentemente da 
quello che era contenuto in main, è il seguente: 


10 PRINT CHR$(4); “RUN AUX” 


Ciò comporta che, al momento in cui daremo 
per la prima volta ilcomando di switch per passa- 
re il controllo operativo dalla main ad aux, que- 
st'ultima cercherà di caricare da disco un pro- 
gramma BASIC di nome aux e, sempre che tale 
programma si trovi sul disco, lo eseguirà. Altrimen- 
ti si otterrà un normale FILENOT FOUND e si rimarrà 
in aux can il sistema operativo a completa dispo- 
sizione. 

Resta inteso che normalmente il programma- 
tore avrà salvato sul disco un programma di no- 
me aux il quale può essere di tutto: dal gestiona- 
le, alla subroutine, al semplice lanciatore di altri 
programmi (questi ultimi possono eventualmen- 
te essere in linguaggio macchina purché non 
sovrascrivano l'area di memoria in cui è stato 
caricato A 128). 

Tenete presente che spostandosi dalla main 
ad aux si ottiene lo stesso effetto che si otterrebbe 
dando un GOTO Linenumber più basso. Ovvero il 
programma BASIC di aux va in esecuzione par- 
tendo dalla linea più bassa, mantenendo intatte 
le variabili fin qui definite. 

Spostandosi, al contrario, da aux alla main e sup- 
ponendo che il precedente comando di switch 
(quello che ci aveva portato in aux, per intender- 
ci) fosse stato dato dentro programma, vi accor- 
gerete che quest'ultimo riprende come se niente 
fosse la sua esecuzione dall'istruzione successiva 
al comando di switch, proprio come accadreb- 
be per un GOSUB salvo che, qualsiasi cosa voi 
abbiate fatto in aux, non si avrà nessuna influen- 
za su main, ferma restando la possibilità di trasfe- 
rire da questa parte le variabili definite nell'altra. 


Nel caso vi stiate chiedendo se è possibile 
mandare in esecuzione il programma di aux da 
un numero di linea diverso dal primo potete co- 
minciare tranquillamente un ripasso delle istru- 
zioni applesoft cominciando da ON X GOTO. Fini- 
to il ripasso pensate che quella X la potete defini- 
re in main e spedirla in aux con l'opportuno co- 
mando e per ultimo arrossite per esservi posti una 
domanda dalla risposta così ovvia... 

Passiamo alla sintassi: 

&% è il comando di switch. 

& VARI, >, VAR2 è il comando con cui trasfe- 
riamo il valore della variabile 
VARA, relativa alla scheda 
operante al momento, nella 
variabile VAR2 relativa alla 
scheda opposta. 

& VAR4, <, VAR2 fa esattamente il contrario, 
ovvero la variabile donante 
questa volta è VAR? il cui va- 
lore viene assegnato a VARI. 
Anche in questo caso VARA è 
relativa alla scheda operan- 
te al momento e VAR2 all'al- 
tra. 

In definitiva il verso di trasferimento è determinato 
dal > e dal <. 
Tengo a precisare che è utilizzabile qualsiasi va- 
riabile purché accettata dal BASIC, quindi anche 
variabili con indice, sia numerica che stringa. An- 
zi, godano i perfezionisti, al momento del trasferi- 
mento della stringa viene effettuato un controllo 
sulla lunghezza delle due variabili. 

Nel caso la ricevente risulti uguale 0 più lunga 

della donante, i nuovi caratteri rappresentanti il 

valore della variabile, invece di essere accodati 

al pool stringhe come fa l'interprete, vengono 
sovrascritti sui vecchi. 

In pratica riassegnamo una variabile senza 

consumare nemmeno un byte, ritardando così il 
FRE(0), operazione che viene automaticamente 
eseguita dal programma stesso nel caso si trovi 
con meno di 255 byte di RAM disponibile. 
Altri controlli vengono effettuati sulla compatibili- 
tà fra le due variabili e in caso negativo si ottiene 
un mismatch error; fate però attenzione a non 
commettere errori di sintassi o di dimensiona- 
mento relativamente alla VAR2 in quanto il com- 
puter dà sì un normale messaggio di errore, ma 
nell’area video della scheda opposta a quella in 
cui vi trovate e a voi, da questa parte, sembrerà 
che il computer si sia bloccato. 

Ciò accade solo se l'attuale visualizzazione è a 40 

colonne mentre se vi trovate in 80 il messaggio 

comparirà normalmente seguito dal prompt, ma 
voi non sarete più sulla stessa scheda di prima. 

Nel primo caso potete tranquillamente resetta- 
re, disconnettendo la scheda e tornando in main, 
senza per questo perdere nulla, in quanto la 
scheda verrà nuovamente attivata al primo 
switch con il suo contenuto intatto. 

Un'altra raccomandazione relativa al video è 

quella di non usare i soliti comandi per passare 

dalle 40 alle 80 colonne e viceversa mentre vi 

trovate in aux. 

La giusta sequenza di comandi è la seguente: 


dalle 40 alle 80: POKE 49152,0:PRINT CHR$(18); 
dalle 80 alle 40: PRINT CHR$(17): POKE 49153,0. 


Vi conviene darmi retta altrimenti rischiate di ve- 
dere il vostro programma BASIC distrutto. Siete 
avvertiti!!! 

Sempre riguardo al video sappiate che spostan- 
dosi da una scheda all'altra il formato (40 od 80 
col.) viene mantenuto qual è al momento dello 
switch. 

Come consiglio da amico vi raccomando di 
fare sempre mente locale e pensare che quello 
che è corretto da una parte può non esserlo dal- 
l’altra (per esempio una variabile dimensionata 
da una parte, ma non dall'altra. Oppure la varia- 
bile di un loop che usate come indice di una 
variabile indicata che vi proponete di trasferire, 
senza però provvedere prima al trasferimento 
dell'indice stesso. Dimenticando quindi che il 
loop incrementa la sua variabile solo sulla sche- 
da che sta eseguendo il loop). 

& @ è l'ultimo comando e serve per salvare oppu- 
re per richiamare una videata sia da 40 che da 80 
colonne. 

Si tratta di un comando ad intemuttore, nel 
senso che se la locazione di switch (dec. 227 — $ 
E3) contiene un numero maggiore di 127 viene 
eseguito il salvataggio, se minore il richiamo. Ov- 
viamente lo switch è automatico ogni volta che si 
dà il comando, in altre parole una volta salva e 
una volta richiama. 

Vi consiglio di utilizzare questo comando per sal- 
vare videate che devono essere richiamate so- 
ventemente (tipo menu) e dare un POKE 
227,0 subito dopo, così la prossima volta richia- 
merà nuovamente anziché salvare. 

Nel caso si tenti di richiamare una videata men- 
tre ci si trova in un formato di video diverso da 
quello in cui si era al momento del salvataggio un 
SYNTAX ERROR ci avvertirà dell'incongruenza. 
La videata è richiamabile da entrambe le sche- 
de, indipendentemente dalla parte dove si era 
quando è avvenuto il salvataggio. 

Perché la subroutine di copia video sia attiva 
bisogna dare un POKE 1015,0 prima di dare il 
BRUN, altrimenti non è abilitata e la risposta al 
vostro ‘& @' sarà il solito syntax error. 

Ho preferito dare al programmatore la possibilità 
di escludere la subroutine, in quanto essa occu- 
pa $ ulteriori pagine di memoria (che nonostante 
la raddoppiata RAM potrebbero risultare in qual- 
che caso indispensabili) se attivata: una per la 
subroutine stessa e quattro per il buffer video. 
Visto che siamo in tema di occupazione di me- 
oa vi do alcune utili informazioni riguardo ad A 
Il programma in se stesso, una volta installato, 
occupa le tre pagine che vanno da $9300 
(37632) a $9600 (38400) con la subroutine di 
copia video disattivata. Se invece la si mantiene 
attiva, vengono occupate altre 5 pagine verso il 
basso. Naturalmente il programma si autopro- 
tegge abbassando himem a $9300 nel primo 
caso e a $8E00 (36352) nel secondo. 

| valori sopra fomiti si intendono validi in caso di 
caricamento default del programma. 

Sì, avete intuito il giusto, A 128 È AUTORILOCAN- 
TE e potete quindi caricarlo dove volete, magari 
sotto altri programmi in linguaggio macchina 
che lavorano sotto himem. Più di così... 

Unica limitazione è che deve essere caricato a 
pagina intera ad esempio $8100 - $8200 ecc. ma 
non $8130 - $825A e così via. 
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Figura 1 - Il listato del 
programma A 128. 
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Resta solo da dire che per installarsi correttamen- 
te A 128 si avvale di tre subroutine inizializzatrici 
situate nei primi tre settori del programma stesso 
(presentazione - autorilocazione - inizializzazione 
di aux), che vengono utilizzate soltanto al mo- 
mento del lancio e quindi abbandonate al loro 
triste destino di essere sovrascritte dalle stringhe, 
in quanto non protette. 
Quest'ultima precisazione l'ho fatta non per al- 
lungare questo già chilometrico articolo, ma per- 
ché possiate fare dei conti al momento del BRUN 
nel caso intendiate rilocare il programma che al 
momento del lancio occupa dunque 7 pagine, e 
supposto di volerlo rilocare sotto un altro pro- 
gramma che cominci a $8800, il giusto comando 
da dare è BRUN A 128,A$8100. 

A questo punto, dulcis (mica tanto) in fundo, 
due parole sul modo di fare vostro A 128: 
e entrare in monitor con call -151 e introdurre il 


SOURCE FILE: A128 SORGENTE 


listato a partire da $8F00. Non preoccupatevi più 
di tanto: dopo che avrete pigiato 5500 volte il dito 
sulla tastiera, tasto più tasto meno, e dopo un 
paio di riletture di controllo per eliminare gli inevi- 
tabili errori di battitura potrete gustarvi il vostro 
nuovo programmone, sempre che il vostro im- 
mancabile amico dettatore non vi abbia già 
barbaramente trucidato, colto da un raptus di 
dettatofobia (le dettatrici sono più pericolose dei 
dettatori). 


Il programma descritto è disponibile 
presso: Easy-Life Computer 


Via Mascarella, 84 
404100 Bologna 


2000: I ei 
ueree 
2000: 23% A128 
n000: 33 DI STEFANO GOLLINI 
A000: DO GFREKEFRARAAKAAAAAMAAAALAAAAARAAAARA RANIERI TE 
sur 
2000: 5 3* 
D000: 6 ;* PROGRAMMA FER LA GESTIONE IN BASIC 
0000: 7 3% DELLA SCHEDA 80 COLONNE 64 K 
0000: 8 * 
€311: 9 AUXMOVE EDU s+C311 s MUOVE BLOCCHI MEMORIA 
C314: 10 XFER EQU *C314 3 TRASFERISCE COMANDO DI SITEMA 
92FS: 11 PUNTI EQU #£92F5 sFOSIZ ORIZZ. CURSORE 
92F6: 12 PUNT2 EQU +92F6 3 POSIZ.VERTIC. 
9303; 13 PUNTI EOU +9303 
QOEI: 14 FPUNT4 EOU +00E3 s INTERRUTTORE PER COPIA VIDEATA 
9305: 15 FPUNTS EOU *9305 
FIDO: 165 PUNTO EQU £973096 
CIO: 17 ONBOCOL EQU +C300 s3ATTIVA SCHEDA 82 COLONNE 
FE2C: 18 MONMOVE EOU *FE2C 3 MONITOR MOVE 
FFAA: 19 IOSAVE EQU #FF4A : SALVA REGISTRI 6502 
FF3F: 2 IOREST EQU “#*FF3F 3 RICHIAMA REGISTRI 
D2FC: 21 PUNT7 EGU  #02FC 
02FD: 22 PUNT8 EQU #Q2FD 
O2FE: 23 PUNTI EDU $02FE 
2FF: 24 FUNTO EQU  +02FF 
DFES3: 25 FTRGET EQU $DFE3 s CERCA VARIABILE BASIC 
DECI: 26 SYNTERR EQU $DEC9 3SYNTAX ERROR 
02FB: 27 PUNT11 EQU #02FB 
20000: PAS Ri 
nann: RT PRIMO SETTORE PRESENTAZIONE 
2000: E go n E E N RE IE E EI DE DE DE TEN DEDE IEEE DE DE DE DE DE DE DEDE IE IENE DEDE HE RE DE DEDE DE E E DE DE IE IE I DE DEE de 
= NEXT OBJECT FILE NAME IS A128 SORGENTE. O0BJO 
8F00: 31 ORG  *8F00 
8FD0O:20 4A FF 32 JSR  IOSAVE 3SALVA REG. 
BF0O3:20 58 FC 33 JSR #FCS8 3 HOME 
8F06:A9 DB 34 LDA #$0B 
8F08:895 2 35 STA *£20 sPOKE 32,11 
8FDA:A9 05 3 LDA #£*05 
8F0C:85 25 37 STA 25 sPOKE 37,5 
BFDE:20 24 FC Ris; JSR $FC24 CALCOLA PUNTO USCITA CARATT. 
8F11:AD 77 AA 3 LDA £AA73 3 IND ALTO ULTIMO BINARIO CARICATO 
89F14:85 40 STA  »£4F 
8F1I6:A9 LU 41 LDA ##70 : IND BASSO TABELLA CARATT.X PRESENTAZ 
8F18:85 4E 2 STA $4E 
BFIA:A0 00 43 LDY #£00 
BF1C:B1 4£ 44 STEFANO LDA ($4E),Y 3 CARICA CARATT. 
8F1E:20 FO FD 45 JSR $#FDFO 3E LO FA USCIRE SUL VIDEO 
89F21:C8 46 INY 
8F22:C0 SA 47 CPY #90 sPRIMI 90 CARATT. 
8F24:DO Fé 48 BNE STEFANO 
8F26:A9 00 49 LDA #$00 
8F28:85 20 so STA £20 
8F2A:B1 4E 51 STEFANO1 LDA (£4E),Y 32a PARTE SCRITTA PRESENTAZ 


ssssssssssnananazADD) [ 


8F2C:2 
8BF2F:C8 
8F30:C0 
BF32: DO 
8F34: EE 
8F37:20 
BFZA: AS 
8F3C:20 
8F3F:20 
8F42:20 
8F 45: 6C 
8F48: 


8BF70: 

8F70: AA 
BF71:AA 
8F72: AA 
BF73: AA 
8F74: AA 
8F75: AA 
8F76: AA 
8F77:AA 
BF78: AA 
BF79:AA 
8F7A: AA 
8F7B: AA 
8BF7C: AA 
8F7D: AA 
BF7E: AA 
8F7F:AA 
8F80: AA 
8F81:8D 
8F82: AA 
8F83: AD 
8F84: A0 
BF85: AD 
8FB6:A0 
8F87:A0 
8F88: AO 
8F89:01 
8FBA:31 
8F8B: 32 
8F8C: 38 
8F8D: AD 
8F8E:A0 
8F8F:hA0 
8F90: AQ 
8F91:A0 
8F92: AA 
8F93:8D 
8F94: AA 
8F95: A0 
8F96: A0 
8F97:A0 
8F98: A0 
8F99:hA0 
8F9A:A0 
8F9B:A0 
8BF9C:C4 
8F9D:C9 
8F9E: AO 
8F9F:AD 
8FAD: AQ 
BFA1: AD 
BFAZ: AD 
BFA3S: AD 
8FA4: AA 
BFAS:8D 
BFA6: AA 
8FA7:D3I 
8FAS:D4 
BFA9S:C5 
8FAA:C6 
BFAB:C1 
BFAC:CE 
BFAD:CF 
8FAE: AQ 
BFAF :C7 


JSR 
INY 
CPY 
BNE 
INC 
JSR 
LDA 
JSR 
JSR 
JSR 
JMP 


Seguito listato A 128. 


$*FDFO 

#1i3i 3ALTRI 41 CARATT. 

STEFANO1 

TAA73 s INCREM DI 1 SETT.L'INIZ.PROG. 
*FD1B :GET UN TASTO 

#E8D a RETURN 

$*FDFO 

IOREST s RICHIAMA REGISTRI 

$Q03EA s RICOLLEGA DOS 


($AA72) $ SALTA AL RILOCATORE (DEFAULT 9000) 


SISMI III INIZIO TABELLA CARATT.PRESENTAZ. #* 


ORG 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


*8F70 
$sAA 
$AA 
*AA 
fsAA 
AA 
AA 
AA 
sAA 
sAA 
AA 
tAA 
FARA 
AA 
$AA 
sAA 
#AA 
#AA 
*8D 
TARA 
#A0 
#A0 


#C9 
#A0 
#sA0 
#+AQ0 
*AQ 
#A0 
#AQ0 
£AA 
$8D 
$sAA 
*DI 
$D4 
$C5 
$C6 
$Ci 
$CE 
$CF 


*A0 
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Seguito listato A 128. 8FBO: CF 129 DFB #$CF 
8FB1:CC 159 DFB £CC 
8FB2:CC 131 DFB £CC 
8FB3:C9 132 DFB #C9 
8FB4:CE 1335 DFB *CE 
8FBS:C9 134 DFB =£C9 
BFB6: AA 135 DFB $RA 
8FB7:8D 136 DFB #$8D 
BFBB: AA 137 DFB $AA 
8FBS: AA 138 DFB $hAA 
8FBA: AA 139 DFB $AA 
8FBB: AA 140 DFB “$hAA 
8FBC: AA 141 DFB #$AA 
8FBD: AA 142 DFB $hAA 
8FBE: AA 1435 DFB #AA 
8FBF: AA 144 DFB #AA 
BFCO: AA 145 DFB *AA 
8FCI: AA 146 DFB “AA 
8FC2: AA 147 DFB #*AA 
8FC3: AA 148 DFE “$hA 
8FC4: AA 149 DFB #$AA 
8FCS5: AA 150 DFB #$#hAA 
BFC6: AA iS1i DFB #*#AA 
8FC7: AA 152 DFB “AA 
BFCB: AA 153 DFB “£AA 
8FC9:8D 154 DFB *=*8D 
BFCA:8D 155 DFB #8D 
8FCB: AQ 156 DFB $#A0 
8FCC: DS 157 DFB *DS 3u 
BFCD: CE 158 DFB #*CE sN 
8FCE: AO 159 DFB #hA0 
BFCF : 07 160 DFB $C7 36 
BFDO: D2 161 DFB £D2 ; 
BFD1:C1 162 DFB $Ci H 
8FD2: DA 1635 DFR “DA : 
8FDI3:C9 164 DFB #C9 3 
8FD4:C5 165 DFB =*£C5 : 
8FDS: AO 166 DFE “#AD 
8FD6:C1 167 DFR $C1 3 
8FD7: AD 168 DFB “#hA0 
8FD8:C2 169 DFB =£C2 3B 
8FD9:C9 170 DFB #£C9 3I 
8FDA: D4 171 DFE #$#D4 sT 
8FDB: AC 172 DFB #$#AC 34 
8FDC:C2 173 DFB $£C2 3B 
BFDD:C5 174 DFE #C5 sE 
8FDE:D4 175 DFE #*D4 sT 
BF DF : D4 176 DFB #D4 ul 
8FEO:D9 177 DFB #*D9 sY 
BFEL:AC 178 DFE #AC 3, 
8FE2:C1 179 DFB £C1 3A 
8FES: CE 180 DFE =CE pai 
8FE4:C4 181 DFB #*C4 3D 
8FES:D2 182 DFB #D2 sR 
8FE6:C5 183 DFB $C5 sE 
BFE7:C1 184 DFB SsCi 3A 
8FEB: AQ 185 DFB =#A9 
BFES:10 186 DFB s“$10 sp 
BFEA:12 187 DFB £12 3R 
BFEB: 05 188 DFB $05 sE 
BFEC:0D 189 DFB =*£0QD 3M 
BFED: 09 190 DFB #09 sI 
BFEE: AQ 191 DFB #£A0 
BFEF:12 192 DFB #12 3R 
BFF 0: 05 193 DFB #05 3 
8FF1:14 194 DFB #£14 sT 
8FF2:A0 195 DFB #$#A0 
8FF3: DPS ZIE HERE IE DE EHE DE EHE DE DE SETE DE DE TETI DE DEE TE DIETE DIETE DE HE E DE DE IE IDE DEDE E DE IEEE IEEE 
8FF3: 197 3* SECONDO SETTORE AUTORILOCATORE 
BFF3: LPB Gg RES REI IE IE IE IE IEEE IEEE IE IE AE IE DEE SEE DE IE SE DE DE DE SE SEDE SE DE DE DE SE DE DE DEDE SE DEDE HE DE DEE DE III IE 
= NEXT OBJECT FILE NAME IS A128 SORGENTE. 0BJ2 
9000: 199 ORG #£9000 
9000: AE 73 AA 200 LDX  *£AA7I 
9003: 86 1B 201 STX =*$1B 
9005: E8 202 INX 
9006:86 19 203 STX #£19 
9008:86 07 204 STX #07 
920A:86 09 205 STX $09 


9000: A2 
9P00E:86 
9010:86 
9012:86 
9014: A6 
9016:E8 
9017:8A 
9018:A0 
SOIA:91 
901C:E8 
901D:E8 
SQIE:EA 
901F:8A 
9020: AD 
9022:91 
9024: A0 
9026: B1 


902F:A4 
9031:C8 
9032: E6 
9OT4: Ab 
9035: CA 
9037:CA 
9038: B1 
903A:84 
903C: A8 
903D:8A 
9SOIE:91 
9040: A4 
9042: C8 
9043:C0 
9045: DO 
9047: A6 
9049: E8 
924A: BI 
904C:84 
904E: A8 
904F:BA 
9050:91 
9052: A4 
9054: C8 
9055: E8 
9056: BI 
9058: 84 
905A: AR 
9S05B: 8A 
90SC:91 
90SE: A4 
7060:C8 
9061:C0 
9053: DO 
9065: E8 
906565: E6 
9068: B1 
9FNHA: 84 
906C: AB 
906D: 8A 
9O6E:91 
9070:A4 
9072:C8 
9073:C0 
9075: DO 
9077:E6 
9079:CA 
907A: BI 
907C:84 
907E:A8 
907F:8A 
9080:91 
9082: A4 
9084:C8 
9085: E8 
90864: B1 


270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 


INS1A91 


INS2ABF 


IN92A9P1 


IN92A92 


INSIA9SI 


IN94A92 


IN94N93 


ssoscossassassass/PP|E 


Seguito listato A 128. 


#$*F6 s IND BASSO SUBROUT. COPIATRICE 
(F1A),Y 3 AUTORILOC., RILOCA SE STESSO 


#*DD s VALORE BASSO TESTVD 

(S1A),Y 

#500 

($06) ,Y sINIZ CON 91 (VAL DEFAULT) IL SETT.$91 


ZIA 


#19 
(#08) ,Y 
s1À 


#09 
siB 


(806), Y 
s1A 


(T08) ,Y 
FA 


#4 
IN92A8F+6 
s1B 


($06) ,Y 
sia 


(08) ,Y 
$1A 


(806) ,Y 
sI1A 


(*08) ,Y 
$s1A 


#23 
IN92A92+1 


#09 
($06) ,Y 
SIA 


($08) ,Y 
$IA 

#39 
IN93A93+3 
09 
(806) ,Y 
s1A 


($08) ,Y 
s1A 


(#06) ,Y fe 


1984 * Bit - 7 


Seguito listato A 128. 


8 - 1984 © Bit 


PPLE 


s1AÀ 


($08) ,Y 
$1A 


#43 
INF4A9I+1 


(806) ,Y 
s1A 


($08) ,Y 
$siA 


#54 
IN94A94+1 
IN94A94 
#09 


(£06) ,Y 
s1A 


($08) ,Y 
s1A 


#66 
IN9SA94+3 


($06) ,Y 
$1A 


(08) ,Y 
$s1A 


#78 
INSSA9S+1 
#07 


$03F7 
NOVIDEO 


#$FF 
$E3 


$#FF0S 


$74 
#70 
#$00 
$73 
$6F 
$09 


$03F7 
#$DB 

#+03F6 
*FF80 


s INIZIO ROUT.CHE FISSA HIMEM 


3 TEST SE ATTIVARE ROUT.COPIAVID 


3 DEC 227 SE >128 SALVA VID. SE< RICHIA 
sLOC.DI TEST SE COFIAVID ATTIVA (RILOC 


sHIMEM ALTO 
sPUNTO INSER STRINGHE ALTO 


3A SUBROUTINE INTERPRETA AMPERSAND (93 


: VA AL PROGRAMMA DI COPIA MAIN IN AUX 


ZI IE IE DE DE HEHE HE DE HEHE IE IE DE HEHE NE E DE DE DEE TE DIETE DE DETTE TE III REINER 
3% DATI PER AUTORILOCATORE 


Hiefialieieliclefiefiefiololeleleealeloleiioolelelealanei sont 


A128 SORGENTE.OBJ3 


9088:84 1A 283 STY 
908A: AB 284 TAY 
908B: 8A 285 TXA 
908C:91 08 286 STA 
908E:A4 1A 287 LDY 
9090: C8 288 INY 
9091:C0 2B 289 CPY 
9093: DO F1 290 BNE 
9095: E8 291 IN94A94 INX 
9096: B1 06 292 LDA 
9098:84 1A 293 STY 
909A: AB 294 TAY 
9098: BA 295 TXA 
909C:91 08 296 STA 
909E:A4 1A 297 LDY 
90A0: C8 298 INY 
90A1:C0 36 299 CPY 
90A3:30 F1 300 BMI 
90A5:FO EE 301 IN94A95 BEO 
90A7:E6 09 302 IN9SA94 INC 
90A9: CA 303 DEX 
9BAA:B1 06 304 LDA 
90AC:84 1A 305 STY 
9QAE: AB 306 TAY 
9BAF : BA 307 TXA 
90B0:91 08 308 STA 
90B2:A4 1A 309 LDY 
90B4: C8 310 INY 
90BS:CO 42 311 CPY 
90B7:DO F1 312 BNE 
90B9: E8 313 IN9SA95 INX 
90BA: BI 06 314 LDA 
90BC:84 1A 315 STY 
9@BE: A8 316 TAY 
9OBF : 8A 317 TXA 
90C0:91 08 318 STA 
90C2:A4 1A 319 LDY 
9004: C8 320 INY 
9005: CO 4E 321 CFY 
90C7: DO F1 322 BNE 
90C9: Ab 07 323 FHIMEM LDX 
90CB: E8 324 INX 
90CC: E8 325 INX 
90CD:2C F7 03 326 BIT 
90DO: 30 QC 327 BMI 
90D2:CA 328 DEX 
90D3: CA 329 DEX 
90D4: CA 330 DEX 
9005: CA 331 DEX 
90D6: CA 332 DEX 
90D7:A9 FF 333 LDA 
90D9:85 E3 334 STA 
MA 

90DB:8D 05 FF 335 TESTVD STA 
) 

9ODE:86 74 336 NOVIDEO STX 
90E0: 86 70 337 STX 
90E2:A2 00 338 LDX 
90E4:86 73 339 STX 
90E6:86 6F 340 STX 
90E8:A6 09 341 FISSA& LDX 
DB) 

9DEA: CA 342 DEX 
9Q0EB: CA 343 DEX 
90EC: BE F7 03 344 STX 
90EF:A2 DB 345 LDX 
90F1:8E F6 03 346 STX 
90F4:4C 80 FF 347 VAICOP. JMP 
(9180) 

90F7: 348 

90F7: 349 

90F7: 350 

----- NEXT OBJECT FILE NAME IS 
9100: 351 ORG 
9100: DO 352 DFB 
9101:75 353 DFB 
9102:C7 354 DFB 


19100 
#D6 
#75 
*C7 


FIOIS:EC 
9104: DE 
SIOS:1A 
F106:1D 
F107:24 
91098:2R 
FIMS: ZE 
FIQA:SI 
9106:44 
919C:47 
9100:4h 
9106E:58 
GIOF:SD 
97110:640 
9111:67 
9F112:6D 
S115S073 
9114:89 
F115:EO 
99116:BS 
9117: 14 
9118:27 
P119:38 
911A:4B 
S11B:6A 
S1iCE:71 
T11D: 80 
911E:83 
911F:8D 
9120:98 
S121:A9 
9122: Bé 
9123: DO 
9124: DE 
9125: EB 
9126:F5 
9127: 1F 
9128: 01 
9129:0B 
SIZA:1A 
912B:04 
912C:QE 
$12D:14 
912E:22 
912F:65 
9130:71 
9131:77 
9132: B6 
9133: B9 
9134: BC 
9135:FD 
9136:C6 
9137: 08 
9138: 23 
9139:26 
913A:36 
I 913B:4D 

913C:5B 

913D:6D 

913E:74 

913F:94 

9140: DO 

9141:FF 

9142: DE 

9143:30 

9144:83 

9145:88 
9146:9C 


9147: A2 
9148: A5 
91493: AB 
914A:B4 
914B:B9 
914C: DC 
914D:E4 
914E: 

G14E: 


408 
409 
410 
411 

412 
413 
414 
415 
416 
417 
418 
419 
420 
421 

423 
424 
425 
426 
427 
428 
429 
430 
431 


DFE 
DFB 
DFE 
DFB 
DFB 
DFE 
DFE 
DFE 
DFB 
DFE 
DFE 
DFE 
DFE 
DFB 
DFE 
DFB 
DFE 
DFB 
DFB 
DFE 
DFB 
DFE 
DFE 
DFB 
DFE 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFE 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFR 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


GEIE DI DEE ARE DE E IE DEDE DEDE IE DEDE IE DEDE E DE DEDE TE DEDE DE TEA DE DEDE I DEDE TE DEDE DE IEEE DEDE III IA 
bl *INIZIO PROGR.DI COPIA MAIN IN AUX 


$DI 
s1À 
TiD 
#24 
$2B8 
$2E 
«31 
+44 
#47 
44A 
+58 
$5D 
150 
367 
$5D 
£89 
#BO 
#5 
#14 


Suini 
V.#, 


+38 
148 
#5A 
71 
+80 
183 
#8D 
#98 
#A9 
*B6 
*DO 
*#Dé 
#EB 
$F5 
$1F 
FO 
#0E 
s1A 
#04 
.OE 
$14 
$22 
#65 
*71 
$77 
*B6é 


$FF 
$0E 
#30 
+83 
#88 
$9C 
#A2 
#A5 
*AB 
*B4 
$B9 
*DC 
$E4 


Seguito listato A 128. 
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Seguito listato A 128. 


10 - 1984 * Bit 


914E: 


----- NEXT 


9180: 

9180: 2C 
9183: 30 
9185:2 
9188: AS 
918A:20 
918D: A2 
918F: BS 
9191:8D 
9194:95 
9196:8D 
9199: E8 
919A:FO 
919C: DO 
919E: A9 


FIAD:85 3 


91A2:85 
FIA4:A9 
91A6:85 
FIAB: 85 
FIAA:A9 
SIAC:85 
FIAE: A9 
GIRO: 85 
91B2: 38 
91B3:2: 

F1IBHL:A9 
91B8:85 
91BA:85 
S1IBC:A9 


91BE:85 3 


F1C0:85 
91C2:A9 
91C4:85 


91C6:85 3 


91C8: 38 
91C9:20 
S1CU:8D 
91CF:8D 
91D2:A2 
91D4: BD 
S1D7:9D 
SIDA:CA 
S1DR:E0 
91DD: DO 
S1DF:8D 
91E2:60 
FIEI: 

FIEI:00 
91E4:15 
91E5:08 
SIES:DA 
91E7:00 
91ES8:BA 
91E9:E7 
SIEA: 28 
91EB:34 
91EC:29 
91ED:3B 
91EE:22 
91EF:52 
91F0:55 
91F1:4E 
91F2:20 
91F3:41 
91F4:55 
91F5:58 
91F6:22 
91F7:00 
91F8:00 
91F9:00 
SIFA: 

Si1FA: 


432 


= 
ISESÙ 


434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 


QUICIERE RE SERENE RE REESE RE DIE RIE rineonuueeeieoenee 


OBJECT FILE NAME IS 


ORG 
START1 BIT 
BMI 
JSR 
LDA 
JSR 
FAGINAOD LDX 
LDA 
STA 
STA 
STA 
INX 
BEO 
BNE 


A128 SORGENTE. 0BJ4 
#9180 
$#C01F 380 COLONNE ATTIVE ? 
PAGINAO SE SI SALTA 
#03500 s ATTIVA SCHEDA 
#591 CTRL Q 
10300 s FORMATO VIDEO 40 COLONNE 
#+*00 sRICOFIA PAG 0 IN AUX 
+0000, X 
$C0009 3ON ALTZP AUX 
10000, Xx 
#0008 30FF-ALTZF MAIN 


COPYBASIC 
PAGINAB+2 


COPYBASIC LDA #00 3 COPIA DAL $800 AL $BFFF 


STA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 
SEC 
JSR 
LDA 
STA 
STA 
LDA 
sTA 
STA 
LDA 
STA 
STA 
SEC 
JSR 
STA 
STA 
TRASCRIZ LDX 
LDA 
STA 
DEX 
CPX 
BNE 
STA 
RTS 
REA I AE EI 
PROGR. DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFE 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


F3C 
$42 
#302 
$3D 
#43 
#EFF 
$3E 
#$BF 
*3F 


AUXMOVE 

#£00 :NOPIA DA £DO0O0 A #FFFF 
#3C 

+42 

#*DO 

$ID 

#43 

#£FF 

$3E 

E3F 


AUXMOVE sFINISCE RICOPIATURA 

#C005 s ABILITA SCRITT. IN AUX 

0002 3ABILITA LETTURA IN MAIN 

#$16 s INIZIO TRASCRIZ FROGR. BOOT 
PROGR, X 

F0800, X 3LO METTE IN AUX DA 2048 IN PODI 


#$00 

TRASCRIZ+2 

#C004 3 SCRIVE IN MAIN 

s INIT FATTA - TORNA AL BASIC 

DE EHE E IR DE DE HEHE IE IE IE TE DEDE IE IE IE TE DE IEEE IE IE IEEE E EI IE DE IEEE IE 
+00 310 FRINT CHR$(4); "RUN AUX" 

#15 

*08 

#*0A 


3 IE DEDE DE DE DE DE DE IE DE SE E DEDE HE SE IE DE DE SEDE DE DE DE SE DE DE DEDE DE IE DE DE DEE IE DE SEDE HE DE IE SE SE IE DEE 


3* ROUTI 


NE DI COPIA VIDEATA 


E II IE DE DE DE DEIR DE DEDE SR DE DEDE IE II DE DEDE IE DE DE DE DE DE DE DEE DE DE IE AE DE DE IE DE IEEE 
NEXT OBJECT FILE NAME IS A128 SORGENTE. 0BJS 


9200: 
9200: 08 
9201:48 
9202:98 
9203: 48 
9204: 8A 
9205: 48 
9206: AD 
9209: 2A 
920A: AS 
920C: 659 
9206: A8 
920F : 49 
SPII:AA 
9212: 24 
9214:10 
9215:A9 
9218:2 
921B:20 
921E:9D 
9221:48 
9222: 20 
9225: AS 
9227: A4 


9232: 9D 
TE 
9235: E0 
9237:F0 
9239: 2C 
23C:10 
923E:EA 
923F:9D 
9242: 8D 
9245:8C 
9248:20 
924B:8D 
924E: 68 
924F:C9 
9251:F0O 
9253:8D 
9256: 4C 
9259: AS 
925B: 20 
925E:20 
9261:48 
9262:99 
9265: 20 
9268: 20 
9268: 20 
926E:20 
9271:20 
9274: A9 
9276:85 
9278:2C 
9278: 30 
927D: 18 
927E:90 
9280: 38 
9281:2 
9284:9D 
9287:20 
92BA:20 
928D: E0 
928F:F0 
9291:9D 
9294: 68 
9295: C9 
9297:F0 
9299:8D 
929C: 68 
929D: AA 
929E: 68 
929F: A8 
92A0: 68 


co 


3 SALVA 


RIMEDIA 


RICHIAMA LDA 


CARRYSET SEC 


ABIL 


INDIET 


JMP 


JSR 
JSR 
PHA 
STA 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
STA 
BIT 
BMI 
CLC 
BCC 


JSR 
STA 
JSR 
JSR 
CPX 
BEO 
STA 
PLA 
CMP 
BEO 
STA 
PLA 
TAX 
PLA 
TAY 
PLA 


Seguito listato A 128. 


39200 
$C013 s GUARDA SE SI TROVA IN MAIN O AUX 
A 3 SE MAIN CARRY Q@ SE AUX CARRY 1 
#*00 
#£01 
#$503 3 SE MAIN 02 SE AUX Di 

REGISTRO X INDICATORE MAIN AUX 
PUNTA 3SE > 128 SALVA SE < RICHIAMA 
RICHIAMA 
#$00 
DISCR : VA AD AGGIORNARE INTERRUTT. 
ATRAFP 3 VA A SELEZ.AREA VID.DELLA SCHEDA 


#0003, X sOFFOSTA E ANCHE SCRITT. 
a SALVA IN STACK QD OD 8D 
SAVEVID 3 SALVA VIDEATA IN BUFFER 


#24 SALVA POSIZ. CURSORE 

$25 

FUNTI 

PUNT2 

INVER INVERTE L'INDICATORE MAIN-AUX 

£C003, X sE SCRIVE SU STESSA SCHEDA. DEL CHIAMAN 

#01 sE' MAIN ? 

RIMEDIA s ESEGUE CONTROLLI PER SWITCH GIUSTO 

$*C01F 3NO MAIN ! 80 ATTIVE ? 

RIMEDIA 

#C053, X 3 ESEGUE STESSO SALVATAGGIO 

PUNTI1 s ANCHE SU SCHEDA OPFOSTA A PRIMA 

PUNT2 

SAVEVID 

£*C054 3FAGINA 1 SIA IN 40 CHE IN 80 
sRIESTRAE DISCRIM 809 COL 

#$8D 

RICHIAMA-3 ;SI1! ATTIVE,SALTA 

#*C000 180 STORE OFF 

INDIET 3RITORNA AL CHIAMANTE 

#8FF STESSA PROCEDURA DI ‘SALVA‘ 

DISCR 

ATRAP 


#C0S3,Y :SELEZ PAGINA VID.STESSA SCHEDA 
RESTVID sFORTA IL BUFFER NEL VIDEO 


MONMOVE 

CUREST sRIFRISTINA IL CURSORE 

$FC22 CALCOLA PUNTO OUTPUT CARATT 
RESTVID 

#$8E s INIZIO (DEFAULT) DEL BUFFER VIDEO 
$43 3PORTA PROVVIS. IL CONTENUTO 

$C013 3 DEL BUFFER DELLA SCHEDA 


CARRYSET 3:OPPOSTA IN BUFFER DI 
a QUESTA SCHEDA 
CARRYSET+1 sIL CARRY DETERMINA IL 
sVERSO DI TRASFERIM 
AUXMOVE 
$C053, X sSELEZ.PAGINA VIDEO OPFOSTA 
RESTVID sE TRASFERISCE L'ALTRA MEZZA 
MONMOVE sVIDEATA IN AREA VID OPFOSTA 


#01 sSIAMO IN AUX ? 

ABIL 3SE SI STA C054 GIA'FATTO,SALTA 
$C052, X STA C054 

##8D 

INDIET 3SE 8D 80 ATTIVE , SALTA 

#C000 380 STORE OFF 


sRIPFRISTINO REGISTRI 


1984 © Bit- 11 


Seguito listato A 128. 
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92A1:28 
92A2:650 
92A3: 85 
2A5:9D 
92A8: 85 
92AA: 99 
92AD: 60 
S2AE: AD 
92B1:85 
92R3: AD 
92B6: 85 
92B8:60 
92B9: 48 
92BA: BA 
92BB:49 
92ED: AA 
92BE : 68 
92BF: 60 
92C0: A9 


9202: 85 


9204: 85 
92C6: AS 
92C8: 85 
92CA: AS 
92CC:85 
92CE:A9 
92D0: 85 
92D2: A9 


9204: 85 


92D6: AD 
9208: 60 
92D9: A9 


92DB: 85 


92DD:85 
92DF:A9 
92E1:85 
92E3: AP 
9265: 85 
92E7:A9 
92E9: 85 
92EB: A9 
92ED: 85 
9S2EF:A0 
92F1:20 
92F4:650 
92FS: EA 
92F6: EA 
92F7: AD 
92FA:8D 
92FD:9D 


9307: A9 
9309: 85 
9IO0B: AP 
9SI3OD: 85 
930F :8D 
9312: 20 
9315:8D 
9318:85 
931A:84 


931C:20 2 


931F:20 
9322: 4C 
9325: AD 
LR 
9328: C9 
93Z2A:FO 
932C:20 
932F :8D 
332: A9 
9334: 85 
9336: 4C 


616 


619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 


635 


CUREST 


RESTVID 


SAVEVID 


3* 


PUNTA AGGIORNA INTERRUTTORE 

#C007,X 3 PER PROSSIMO SALVAT.O 
PUNTI s RICHIAMO SIA IN MAIN 

#C007,Y sCHE IN AUX 


PUNTI s RESTORE POSIZ CURSORE 
#24 
PUNT2 


#25 


#500 
$3C 
$42 
#$#8E 
$3D 
#$04 
$43 
#$FF 
$3E 
#$91 
$3F 
#$00 


#*00 
$3C 

#42 
#$04 
$3D 
#$07 
#3F 
#$FF 
#3E 
#$9E s INIZIO BUFFER VIDEO ***RILOC#*** 
$43 
#$00 
MONMOVE 


$C018 3SE 80 ATTIVE 8D SE 40 OD 
#C001 380 STORE ON 
$*C053, X 3 SELEZ.AREA VIDEO PAG.1 0 2 
s MAIN OD AUX 
ETA IE IEEE E DEDE DEDE IE DE DEI IE DE IE HE ADE IE DEDE DE SE DE IE DEA HE DE IE HE JE DE DE IE SE HE E DE AE IE DE E HE HEHE E RIE 


SETTORE SUBROUTINE DI SWITCH 


E DEI III IE DE DE IE DE DIE HSE DE IE DEI HE DE DIE DEDE DEDE DELE TE DE IE AE IE HEI TE IH AE HE IE DIE HE DIETE RIETI 
OBJECT FILE NAME IS A128 SORGENTE. O0BJO 


637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 


651 
652 
653 
654 
655 
656 


INAUX 


INMAIN 


ATTIVA 


ORG 
LDA 
STA 
LDA 
STA 
STA 
JSR 
STA 
STA 
STY 
JSR 
JSR 
JMP 
LDA 


CMP 
BEO 
JSR 
STA 
LDA 
STA 
JMP 


$9307 

#$00 s PREPARA PUNTATORI 

*B8 3PER PROSEGUIRE 

#$508 3 FROGRAMMA IN AUX 

$B9 s DALL'INIZIO (COME GOTO) 
*C008 3USA FAG 0 MAIN 

RESTCURS ;LEGGE FOSIZ.CURSORE 

#C009 3USA FAGO AUX 

#24 

#25 

$FC22 s CALCOLA PUNTO OUTPUT VIDEO 
$*Q3EA sRICOLLEGA IL DOS 

*D822 sRIENTRO AL BASIC 

PUNTI sRIENTRO ALLA MAIN-PUNT3 O CTRLO 0 CTR 


#$92 sCTRL R ? 

NOTOC2 3SE SI SALTA 

$C307 sNO! CTRL G-DISATTIVA 8@ COLONNE 
*C000 380 STORE OFF 

#$28 sPOKE 33,40 

$21 

Dosso 


9339: 8D 
9330:2 
9335F:A9 
9341:85 
9343:2 
9346: 8D 
9349: 20 
34C:8D 
934F: 85 
9351:84 
9353: 20 
9356:20 
9359: 68 
9FISA: 68 
9358: 68 
935C: 68 
935D: 4C 
9360: 
FILO: 
FILO: 
STILO: 
93650: EA 
SI61:EÀA 
9F362: EA 
9363:2C 
9366: 30 
9368: 20 
936B:A9 
936D:8D 
9370: A9 
9372:8D 
9375:38 
9376:A9 
9378:69 
9S37A: EA 
937B:4C 
937E:20 
9381:8E 
9384:8D 
9387: A9 
9389:8D 
93BC:A9 
938E:8D 
9391:18 
9392: B8 
9393: 4C 
9396: AD 
9399:C9 
939B:FO 
939D: 20 
93A0:8D 
93AZ:A9 
93A5: 85 
93A7: 4C 
SIAA: 8D 
9S3AD: 20 
93BO: AP 
93B2: 85 
93B4:4C 
93B7: A5 
93B9S: A4 
93BB: 60 
93BC: 2C 
93BF:10 
93C1:A9 
93C3:20 
9S3C6H: A2 
9308: 2C 
93CB: 10 
93CD: E8 
9ICE : BE 
93D1:8D 
93D4: BE 
93D7:8D 
S3DA: 60 
93DB: 
93DB: 


D8 


658 
659 
660 
(-I-2! 

662 
663 
664 
665 
666 
667 
668 
669 
670 
671 

672 
673 
674 
675 
676 
677 
678 
679 
680 
681 

682 
683 
684 
685 
6B6 
687 
688 
689 
690 
691 

692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 

712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
750 
731 

732 
733 
734 


NOTOC2 STA 


DOSSO JSR 


RITORNO JSR 


JMP 


RESTCURS 
#0008 
#24 

#25 
$FC22 
IOREST 


#D822 


Seguito listato A 128. 


380 STORE ON 
s ATTIVA B@ COLONNE (SE ACC.E 'CTRLR) 
sFOKE 33,80 


sRICOLLEGA IL DOS 
STESSA FROCEDURA DI INAUX 


sRICHIAMA REGISTRI 

sESTRAE 2 INDIRIZZI DALLA STACK 
sALTRIMENTI SE E° IN UN LOOP 
sDA' NEXT WITHOUT FOR 


sRIENTRA NEL FROGRAMMA IN MAIN 


REI IEEE IEEE RIE IERI II MII 
INIZIO EFFETTIVO ROUTINE DI SWITCH 


3% 


3* INTERFRETE AMFERSAND CHIAMA QUI ‘ 
ROCCE ei 
START NOF 
NOF 
NOF 
BIT £CQ13 sAUSILIARIA O MAIN ? 
BMI AUSIL 3SE > 128 ESEGUI AUX -> MAIN 
XTRANS JSR NELCASO 3NON FOSSE ATTIVA LA SCHEDA ATTIVALA 
LDA #£96 s IND BASSO GOR (PUNTO INGRESS. IN AUX) 
STA #£03ED 
LDA #£93 s IND ALTO 
STA  S03EE 
SEC 
LDA #£80 3SET OVERFLOW 
ADC #$81 s FER XFER MAIN-AUX-FAG 0 AUX 
NOP 
JMP__XFER sCEDE CONTROLLO AD AUX INDIR.GOR 
AUSIL JSR NELCASO STESSA PROCEDURA DI XTRANS 
STX PUNTI 
STA *£C005 
ATT2 LDA #£25 s IND. BASSO DI INMAIN 
STA $03ED 
LDA #$93 3 IND.ALTO 
STA $03EE 
CLC 
CLV 
JMP_XFER :CEDE CONTROLLO A MAIN INDIR. INMAIN 
OR LDA PUNTI STESSA PROCEDURA DI INMAIN 
CMP_#$92 
BEQ NOTOC 
JSR $£C307 
STA *£C001 
LDA #$28 
STA #21 
JMP SALTI 
NOTOC STA £C000 
JSR $C307 
LDA #£50 
STA s21 
SALTI JMP__£9307 VA AD INAUX CHE E'SUA PROSECUZ 
RESTCURS LDA $24 
LDY $25 
RTS 
NELCASO BIT £AASI s CONTROLLA SE SHEDA ATTIVA 
BFL GIAATT 3SE 07 GIA ATTIVA 
LDA ##00 
JSR ONS@QCOL 3LA ATTIVA 
GIAATT LDX #891 sCTRL 0 
BIT “£CQ1F 380 COLONNE ATTIVE ? 
BFL STIPA 3SE DISATTIVA SALTA 
INX CTRL R 
STIPA STX PUNTI 
STA *C005 3SCRIVE IN AUX 
STX PUNTI 
STA +£C004 
RTS 
IE DIEDE IE DE HE SE DE DE HEHE DEDE DE DE HEAR DE DE E IEEE DEDE TE DE DEDE AE DEDE IE IE IE IE DEDE DE HE IE DE HEI IDEE IE ” 
3* INTERPRETE AMPERSAND © | 


1984 * Bit - 13 


Seguito listato A 128. 


14 - 1984 © Bit 


93DB: 
9S3DB: 
93DB: 20 
SIDE: AQ 
SIED: BI 
93E2:C9 
93E4: DO 
93E6:20 
93E9:4C 
9I3EC:C9 
SIEE: DO 
93F0:20 
93F382C 
93F6:10 
93F8:2 
9I3FA: 10 
9SIFC:AC 
93FF:8C 
9402: 20 
9405: AA 
9406:9D 
9409: 8C 
940C:20 
940F :9D 
9412:4C 
9415: AD 
9418:CD 
941B:D®O 
941D:4C 


9424: 48 
9425: BA 
9426:49 03 


9428: AA 
9429:68 
942A:60 
9428: AQ 
942D:B1 
942F:99 
9432:88 
PATTI: 10 
9435: AS 
9437:8D 
943A: AS 
943C:8D 
943F:60 
9440: A6 
9442: E8 
9443: E4 
9445:90 
9447:20 
944A:60 
944B: AD 
944E:C5 
9450:60 
9451: EA 
9452: AD 
9455: 2A 
9456: A9 
9458: 8D 
945B: 69 
945D: 49 
945F:8D 
9462:60 
9463: 

9463: 

9463: 20 
94665: C9 
9468:FO 
946A: AP 
946C:8D 
946F :20 
9472:20 
9475:20 


735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 


i* VETTORE AMPERSAND PUNTA QUI PER I CONTROLLI 
RZ, LLL LELE LELE LEE EI 


JSR 
LDY 
DOFO& LDA 
CMP 
BNE 
JSR 
JMP 
CMP 
BNE 
JSR 
BIT 
BFL 
BIT 
BFL 
LDY 
STY 
JSR 
TAX 
STA 
STY 
JSR 
STA 
JMP 
STESSEC LDA 
CMP 
BNE 
JMF 
TRANVAR JMF 


IOSAVE 
#*00 
($B8) ,Y 
#$25 
COPA 
s00B1 
START 
#540 
TRANVAR 
#00B1 
PUNTS 
TRANVAR 
PUNT4 
STESSEC 
#C01F 
PUNTO 
SEESCHE 


#£C003, X 
PUNTO 
INVERTI 
50003, X 
TRANVAR-3 
$CQ1F 
PUNTO 
TRANVAR 
59200 
INITRV 


3E' % IL CARATTERE SUCCESS.A & ? 
3SE NO VAI A VEDERE SE E' € 

sSI! INCREMENTA CHRGET 

s VAI A SWICCIO SCHEDA 

Re° @ ? 

3SE NO VAI A VEDERE SE E TRASF.VAR. 


3 SE < DI 128 ROUT.COPIA VID.DISATT. 
3 IN QUESTEO CASO PTRGET DARA’ ERROR 
3SE >128 SALVA VIDEATA 

3 SE < VA A STESSEC CHE RICHIAMA 

s DISCRIM FORMATO VIDEO 

:SE 40 COL QD SE 80 8D 

3 VA A VEDERE IN CHE SCHEDA SIAMO 


3SCRIVE SU SCHEDA OPPOSTA 
3E SALDA DISCRIM ANCHE LI’ 


sRIFORTA SCRITT.SU QUESTA SCHEDA 

sE VA A FARE COPIA VIDEATA A 9200 

: PRIMA DI RICHIAM.CONTROLLA SE 

s IL VIDEO HA LO STESSO FORMATO 

3SE NO FTRGET DA'SYNTAX ERROR 

s VA AD INIZIO ROUTINE DI COPIA PAGINA 
3 VA AD INIZIO ROUTINE TRASFERIM VARIAB 


i ##%%*%%*#**SUBROUTINES PER IL TRASFER.VARIABILI**** 


OBJECT FILE NAME IS 


766 
767 
768 
769 


779 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
cre 
793 
794 
795 
796 
797 
798 
799 
800 
BOI 
802 
803 
804 
80s 
806 
807 
808 
809 
810 


ORG 
INVERTI PHA 


DOFRE 


TESTLEN 


SEESCHE 


A128 SORGENTE. O0BJ7 


$9424 


#$03 


#$02 
(£83),Y 
$02F0,Y 


COPUNT+2 
$6F 
$02F3 
#70 
£02F4 


$6E 


#70 
DOFRE+3 
$E2E5 


#02F0 
$4E 


$*C013 
A 
#$00 
PUNT® 
#501 
#$03 
PUNT7 


3 INVERTE ALTERNATIV.X REG. 1-2 


COPIA Î PUNT.DELLA VARIAB.STRINGA 

s IN ALTRI PUNTATORI FUORI DI PAG 0 
sSITUATI IN ALTRA SCHEDA(VEDI ENCOPY) 
3QUANDO CHIAMA QUI 


s COPIA ANCHE I PUNT. DEL PUNTO DI 
s INSERIMENTO STRINGHE 


s PUNT ALTO FINE MATRICI 

s FARAGONA CON PUNTO INSER. STRINGHE 

3SE MENO DI 255 BYTES RAM LIBERI 

sVA A FARE IL FRE(0) 

s CONTROLLA SE VAR DONANTE 

sFIU CORTA OD UGUALE RICEVENTE 

a CONTROLLA IN CHE SCHEDA CI TROVIAMO 
sFUNT8 E LO STATUS CHE SERVIRA' A XFER 


3SE ATTIVA MAIN 02 SE AUX Oi 


3 #66 INIZIO EFFETT. TRASFER. VARIAB. ****%* 
333% * INTERPRETE AMPERS.PUNTA QUI’ xs%000%% 


INITRV JSR 
CMP 
BEO 
LDA 
STA 
JSR 
JSR 
JISR 


SEESCHE 
#01 
CERCA 
#$41 
PUNT® 
FRE 
PTRGET 
SAVCOMPA 


3SE SIAMO IN AUX STATUS @ E'GIUSTO 
sE QUINDI SALTA 

s EQUIVALE A CARRY 1 E OVERFLOW 1 

s MEMORIZZA STATUS PER XFER 


3VA A TROVARE PUNTAT. DELLA VARI 
MEMORIZZA IN PUNTO UN VAL. INDICANTE 


Seguito li. } 
9478:20 sBi sIL TIPO DI VARIAB(STRINGA REALE INTEG eguito listato A 128, 


) 

947B:C9 #$D1 sE < IL CARATT. SUCCESS. ? 

947D:F0 BEO SEGNA 

947F:C9 CMP_#$CF 3E > ? 

9481:F0 03 BEG SEGNA 

9483: 4C JMP_SYNTERR  3NO'! SYNTAX ERROR 

9486: AE F LDX PUNT7 sCARICA DISCRIM SCHEDA 

9489:9D 03 STA #£C2003,X ENABLE WRITE SCHEDA 2 

948C:8D STA PUNTI MEMORIZZA VERSO IN SCHEDA 2 

948F : BE 2 STX PUNT? MEMORIZZA DISCRIM IN SCHEDA 2 

9492: AD LDA PUNTS 3 CARICA STATUS 

9495: 49 EOR #$41 sLO INVERTE 

9497:8D STA PUNT® sLO MEMORIZZA IN SCHEDA 2 

949A: AD LDA PUNTO 

949D: 8D STA PUNTII sTIPO VARIAB. IN SCHEDA OPPOSTA 

94A0:2 JSR  SB1 SALTA LA VIRGOLA 

94A3: AQ LDY #$00 

9405: 20 COMCOP  JSR $Bi s ANALIZZA VAR2 

194A8:99 STA $0200,Y :;COPIA VAR2 IN BUFFER TAST.SCHEDA OPP 
94AB: C8 INY 

94AC:C9 CMP_#£00 sFINE RIGA ? 

94AE:FO BEO ENDCOPY 

94B0:C9 | CMP_#$3A 3SE ‘:’ ALTRA ISTRUZIONE ? 

9482: FO BEG ENDCOPY 

9484: 4C ANCOR JMP_ COMCOP 

9487: 20 ENDCOPY JISR COPUNT 3COPIA I PUNT VARI IN SCHEDA OPP 
94BA: 20 JISR INVERTI 

94BD:9D STA #$C003,X :;RIABILITA WRITE SCHEDA 1 

94C0: A9 LDA #$04 sVEDI FRA 6 RIGHE 

9402: 8D STA PUNTO 

94C5:A9 SWICCIO LDA #95 

94C7:8D STA s$Q3EE 

94CA: A9 LDA #$37 sIND BASSO DI TORNO 1 

94CC: 18 CLC 

94CD: 6D ADC PUNTO CONTIENE 0 SE TRASFERIM GIA‘ 

94D0: 8D STA $#03ED sCOMPLETO OPPURE 24 SE FATTO A META’ 
94D3: AD LDA PUNT8 3CARICA STATUS PER DETERMIN VERSO XFER 
9406: 48 PHA 

94D7:28 PLP 3 SE 1/2 TRASFER.VA A PROSECUZ-SE INTER 
o 

94D8: 4C JMP XFER 3A TORNO1-COMUNQUE CAMBIA SCHEDA 
94DB: 18 SAVCOMPA CLC 3 SUROUT.CHE CONTROLLA TIPO VARIAB 
94DC: AS LDA #11 

94DE: 65 ADC $12 

94E0:8D STA PUNTO 

9463: 60 RTS 

94E4:AD FC + NUMERICA LDA PUNT7 3 SUBROUTINE CHE TRASFER.VARIAB NUM. 
94E7: AE LDX PUNT9 s CONTROLLA VERSO TRASFERIM 

9AEA: ED CPX #$CF 3E > ? 

94EC: DO BNE AVANTI 

94EE:49 EOR #$03 3E' >. INVERTI DISCRIMINANTE SCHEDA 
94F0: AA AVANTI TAX 

94F1:A0 ESEGUI LDY #$04 

94F3:9D STA #$C201,X ABILITA IN LETTURA LA SCHEDA E LA PAG 
o 

94F6:9D STA #C007,X DI QUESTA SCHEDA O DELL'OPP.SECONDO D 
ISCRIM 

94F9: Bi LDA (*£83),Y TRASFERISCE LA MANTISSA 

94FB:20 JISR INVERTI 

94FE:9D STA “*£C0D07,X sALTRA PAG D 

9501:9D STA #C003,X i;SCRITTURA IN ALTRA SCHEDA 

9504:91 STA ($83),Y 3SCRIVE MANTISSA 

9506: 20 INVERTI 

9509: 88 

9S0A:10 BPL ESEGUI+5 

9500: 4C Ss 2 TORNIAM —;TRASFER FATTO.VA A RIENTRARE AL BASIC 
9S0F : AD 2 SINDEST PUNT7 3 ESEGUE TRASF.STRINGA CON VERSO > 
9512: 49 #$03 3IN PRATICA IL TRASFER. AVVIENE SEMPRE 
9514: AA s3ED E'FATTO DA DESTSIN FERO'A SECONDA 
9515:9D 03 $C003,X = :DELLA SCHEDA CHE ESEGUE DESTSIN 
9518: BE PUNT7 sIL RISULTATO E’ < OPPURE > 

951B: AD PUNTS 3ORA TRASFERISCE QUINDI TUTTI I PUNT. 
951E:8D PUNT® sNECESS. PER FARRE DESTSIN ALLA SCHEDA 


OPP 
9521:20 COPUNT © | 


1984 * Bit - 15 
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9524:2 
9527:9D 
952A:A9 
952C:8D 
952F:A9 
9531:8D 
9534:4C 
9S537:20 
953A: 60 
953B: AS 
953D: 85 
SS3F:A5 
9541:85 
9543: A9 
9545: 85 
9547:A9 
9549: 85 
9548: 20 
954E:20 
9551: A5 
9553: 85 
9555: AS 
9557: 85 
9559: 20 
955C:CD 
955F:FO 
9561:A9 
9563: 8D 
9566: A9 
9568:8D 
9568: 4C 
956E:C9 
9570:F0 
9572:4C 
9575: AD 
9578:C9 
S57A:F0 
957C:A0 
957E: BI 
9580: 88 
9581:8D 
9584: BI 
9586:8D 
9589: 88 
958A: B1 
958C: AA 
958D: Bé 
9S8F:FO 
9591:CA 
9592: 2 
9595:90 
9597: AD 
6 
959A:8D 
959D: AD 
9S5A0D: 8D 
95AI: 4C 
SSAL: AD 
95SA9:8D 
SSAC: AD 
9SAF : 38 
95BO0: ES 
95B2:8D 
9S5BS: BO 
95B7: CE 
SSBA: AD 
9SBD: 49 
95BF: A8 
95C0:99 
EST) 
95C3: BD 
95C6: 9D 
95C9:CA 
SCA: EO 
9SCC: DO 
9SCE: 20 
95D1: A6 


94 
DF 


94 


JSR 
STA 
LDA 
STA 
LDA 
STA 
JMP 
TORNO1 JSR 
RTS 
PROSECUZ LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 


JMP 
COMPATIB CMP 
BEO 
JMP 
STRINGA LDA 
CMP 
BEGO 
DESTSIN LDY 
LDA 
DEY 
STA 
LDA 
STA 
DEY 
LDA 
TAX 
STX 
BEO 
RIDUCI DEX 
JSR 
BCC 
LDA 


STA 
LDA 
STA 
JMP 
CAMBIO LDA 
STA 
LDA 
SEC 
SBC 
STA 
BCS 
DEC 
NOPAG LDA 
EOR 
TAY 
STA 


CARIC LDA 

SCARICAT STA 
DEX 
CPX 
BNE 
JSR 
LDX 


INVERTI 
*C003, X 
#£7C 

#*03ED 

#595 

#Q03EE 
SWICCIO+14 
IOREST 


*B8 

84€ 

$B9 

$4F 

#300 

$B8 

#*02 

$B9 

FRE 
PTRGET 
$4E 

$E8 

$4F 

$B9 
SAVCOMPA 
PUNT11 
COMPATIB 
#376 
*03ED 
#*DD 
$O3EE 
SWICCI0+14 
#3FF 
STRINGA 
NUMERICA 
PUNT9 
#$CF 
SINDEST 
#*02 
(£83),Y 


CARIC+2 
(883) ,Y 
CARIC+1 


(883) ,Y 


$4E 
RIDUCI+1 


TESTLEN 
CAMBIO 
#02F1 


SCARICAT+1 
#02F2 
SCARICAT+2 
NOPAG 
*02F4 
SCARICAT+2 
#*02F3 


$4E 
SCARICAT+1 
NOPAG 
SCARICAT+2 
PUNT7 

#$035 


#*C003,Y 


$FF00, X 
*FF00, X 


#$FF 
CARIC 
TESTLEN 
$4E 


3#***IND BASSO DESTSIN 
3****IND ALTO DESTSIN 


3VA A SCHEDA OPPOSTA CHE FARA 'DESTSIN 
3E ‘IL RIENTRO AL BASIC A TRASFER.FATTO 


3 SWICCIA QUI DA SCHEDA OPPOSTA 

sE SI OCCUPA DI VAR2 

sSALVA IN 4E 4F PUNTO DI CHRGET 

sE DEVIA CHRGET AL BUFFER TASTIERA 


3 DOVE PRIMA (COMCOF) AVEVAMO SALVATO 
3VAR2 DALLA SCHEDA OFF 


s TROVA FUNTAT 2A VAR. IN SCHEDA OPP 


sRIPOSIZIONA CHRGET 
s CONTROLLA LA COMPATIB.FRA LE VARIAB. 
3SI BENE'SALTA 
3 IND BASSO MISMATCH ERROR 

3 IND ALTO 

3 VA A STAMPARE MISMATCH ERROR 


3**CONTROLL SE E COD DI VARIAB STRINGA 
3SE SI VAI A ROUTINE TRATT.VAR STRINGA 


s CONTROLLA VERSO 

3SE E' > VAI A SINDEST 

s PUNT ALTO VAR2 IN SCHEDA OPP 

PREPARA PUNTATORE PER TRASFER 

3 PUNT BASSO 

CARICA LEN VAR 2 

sMETTE LA LEN IN 4E€ 

3SE E' STRINGA NULLA NON RIDURRE 

sRIDUCO DI UNO PERCHE ANDRA'SOMMATO 

GUARDA SE LEN RICEV. > = DONATE 

3SE E’ PIU'CORTA ACCODA AL FOOL 

3 IND BASSO INIZ.CARAT.DI VECCHIA STRIN 
PREPARA PUNTATORE DI TRASFER. 

s IND ALTN 

sPUNTO ALTO INSER.STRINGHE 

s PUNT BASSO 


3SOTTRAI LA LUNGHEZZA 


sDISCRIM SCHEDA 
s INVERTILO 


3ABIL.SCR. SCHED1(0 2 SE VIENE DA SIND 


3 CARICA CARATT. VAR.2(0 1 ECC) 
sE LI METTE IN VAR 1(C0 2 ECC) 


35I RICARICA LEN 


rsa APPLE 


95D3:99 07 957 STA $C007,Y ;PAG 0 SCHEDA 1 Seguito listato A 128. 


95D6: BO 11 958 BCS LEN sSE DONANTE FIU CORTA SALTA 

SDB:A0 02 959 LDY #$£02 

SDA: AD C8 960 LDA SCARICAT+2 

SDD:91 83 961 STA ($83),Y sCREA FUNT VAR 1 IN SCHEDA 1 
95DF:85 70 962 STA #70 3FISSA NUOVO PUNTO INSER VARIAB. 
95E1:88 963 DEY 
95E2:AD C7 964 LDA SCARICAT+1 
95E5:91 83 965 STA ($83),Y 
95E7:85 6F 966 STA s6F 
S5ES:A0 00 967 LDY #£00 

9S5EB: BA 968 TXA 
9SEC:91 83 969 STA ($83),Y 3FISSA NUOVA LUNGHEZZA STRINGA 
ISEE:AE FC 02 970 TORNIAM LDX PUNT7 
95F1:9D 03 C@ 971 STA “£C003,X sRISELEZIONA SCHEDA ORIGINALE 
95F4:9D di CO 972 STA *+£C001,X 3SIA WRITE CHE READ 
95F7:9D 07 CO 9735 STA “£C207,X sFER RIENTRARE AL BASIC 

SSFA:A9 00 974 LDA #$00 s VERRA ASSOMMATO A #$37 DA SWICCIO 
SSFC:EA 975 NOP 
95FD:4C C2 94 976 JMP_ SWICCIO-3 3;COSI' XFER CEDERA ‘CONTROLLO A TORNOI 


9294 ABIL ANCOR 92F7 ATRAFP P9387 ATT2 
?932C ATTIVA AUSIL C3l1l AUXMOVE 94FD AVANTI 


SS5A6& CAMBIO CARIC 92809 CARRYSET 9472 CERCA 
9485 COMCOF COMPATIB SIEC COPA 942B COPUNT 
919E COPYBASIC CUREST 2957C DESTSIN 92A3 DISCR 
9447 DOFRE DOPO 9343 DOSSO 9487 ENDCOPY 
94F1 ESEGUI FHIMEM P90E8 FISSA 9440 FRE 
S3C& GIAATT INFI1A9I 9032 IN92A8F ?9047 IN92A91 
9055 IN92A92 INS3ASI 29077 IN94A92 9085 IN94A93 
9095 IN94A94 IN94A95 90A7 IN95A94 90BS IN95SA9S 
29307 INAUX INDIET 9463 INITRV 29325 INMAIN 
9424 INVERTI INVER FF35F IOREST FF4A IOSAVE 
95E9 LEN MONMOVE 93BC NELCASO SSBA NOPAG 
SARA NOTOC NOTOC2 9FODE NOVIDEO 94E€4 NUMERICA 
C300 ONBOCOL PAGINAO SIE3 FROGR P953B PROSECUZ 
DFE3 PTRGET FUNTO 92F5 FUNTI1 02FB FUNTI1I 
92F6 FPUNT2 PUNTI E3 FUNT4 9305 FUNTS 
9306 PUNTO PUNT7 02FD PUNT8 02FE PUNTI 
P9396 QOR RESTCURS 92C0 RESTVID 9259 RICHIAMA 
9591 RIDUCI RIMEDIA 29349 RITORNO 93B4 SALTI 
?9216 SALVA SAVCOMFA 92D9 SAVEVID 95C6 SCARICAT 
9452 SEESCHE SEGNA 950F SINDEST 9360 START 
?9180 STARTI STEFANO 8F2A STEFANOI1 9415 STESSEC 
9S3CE STIPA STRINGA 94CS SWICCIO DEC9 SYNTERR 
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Seguito listato A 128. 


944B TESTLEN 


?P90DE 


TESTVD 


SSEE TORNIAM 


29537 TORNOI1 


9420 TRANVAR 91D2 TRASCRIZ ?90F4 VAICOP C314 XFER 
29368 XTRANS 
E3 PUNT4 02FB PUNTII1 02FC PUNT7 02FD PUNT8 
02FE PUNT9 02FF PUNTO 8F1C STEFANO 8F2A STEFANO1 
79026 IN91A91 9032 IN92A8F ?9047 IN92A91 9055 IN9S2A92 
906565 IN93A9SI 9077 IN94A92 9085 IN94A93 9095 IN94A94 
?290A5 IN94A95 90A7 INSSA94 90B9 IN95A9S ?90C9 FHIMEM 
P90DB TESTVD 9@DE NOVIDEO ?90E8 FISSA 90F4 VAICOF 
9180 STARTI 918D FAGINAO 9F19E COPYBASIC 91D2 TRASCRIZ 
GIE3 PROGR 9216 SALVA 923F RIMEDIA 259 RICHIAMA 
9280 CARRYSET 9294 ABIL 929C INDIET 92A3 DISCR 
92AE CUREST 72B9 INVER 92C0 RESTVID 92D9 SAVEVID 
92F5 FUNTI 92F6 PUNT2 92F7 ATRAP 9303 PUNTI 
9305 PUNTS 9306 PUNTO 293097 INAUX 9325 INMAIN 
?932C ATTIVA 9339 NOTOC2 9343 DOSSO 9349 RITORNO 
935609 START 9368 XTRANS 937E AUSIL 9387 ATT2 
9396 COR ?3AA NOTOC 93B4 SALTI 93B7 RESTCURS 
93BC NELCASO 9F3C6 GIAATT 93CE STIFPA 93EO DOPO 
93EC COPA 9415 STESSEC 9420 TRANVAR 9424 INVERTI 
F42B COPUNT 3440 FRE 9447 DOFRE 944B TESTLEN 
9452 SEESCHE 9463 INITRV 9472 CERCA 9486 SEGNA 
9485 COMCOF 94B4 ANCOR 9487 ENDCOPY 94C5 SWICCIO 
3S4DB SAVCOMFA 94E4 NUMERICA 94FO0 AVANTI 94F1 ESEGUI 
9S50F SINDESI 3537 TORNO1 P953B PROSECUZ 956E COMPATIB 
9$75 STRINGA 957C DESTSIN 9591 RIDUCI 95A6 CAMBIO 
SSBA NOFPAG ?SC3 CARIC 95C6 SCARICAT ?5E9 LEN 
9SEE TORNIAM C300 ONSOCOL C311 AUXMOVE C314 XFER 
si DECS SYNTERR DFE3 PTRGET FE2C MONMOVE FF3F IOREST 
O) FF4A IOSAVE 
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SISTEMI PER L'INFORMATICA 


ROMA - Via Fonti del Clitunno, 11 - Tel. 06/7945423 
PESCARA - Via F. De Blasiis, 9 - Tel. 085/692576 


PERSONAL - RETI DI PERSONAL - MINICOMPUTER da 16 e 32 BITS. 
PERIFERICHE SPECIALI: PLOTTER - TAVOLETTE GRAFICHE - VIDEO GIGANTI 
STRUMENTAZIONE: CONTROLLORI PROGRAMMABILI - COMPUTER 
PER LA GESTIONE DI SISTEMI E COLLEGAMENTO 
STRUMENTI DI MISURA DA LABORATORI. 


PROGRAMMI PER LA GESTIONE DELLA SCUOLA: 
STIPENDI - PAGELLE - CONTABILITÀ FINANZIARIA - GRADUATORIE - ECC. 


PROGRAMMI PER LA DIDATTICA: 
RAGIONERIA - MATEMATICA - CHIMICA - ELETTRONICA - ELETTROTECNICA‘ 
PROGETTI SPECIALI 


CORSI: PROGRAMMAZIONE STRUTTURATA; BASIC; COBOL; ASSEMBLER. 
MICROELETTRONICA E MICROPROCESSORI. CONTROLLO 
DI PROCESSI INDUSTRIALI 


PROGRAMMI PER LA GESTIONE AZIENDALE: CONTABILITÀ E MAGAZZINO 
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Gioco della scimmia VIC 20 
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Text-Editor PET 3032 
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Apple Il 
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Breakout 


Reporter 


Discover 


Apple-Chef 
Provariflessi 
Tiny FORTH 


Apple Il 
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Formula Uno a cronometro 


Una delle grosse possibilità del calcolatore è la sua capacità di simulare 
situazioni ed eventi in tempo reale. Ciò ha permesso, fra le altre cose, di 
addestrare il personale in via di specializzazione per quelle mansioni 
particolarmente impegnative e pericolose per le quali altrimenti si sarebbero 
dovuti correre grossi rischi per i mezzi e le persone. 


di Stelvio Bertuzzo 


a) uesto lavoro non vuole e non può essere un 
vero programma di simulazione, ma si collo- 
ca comunque in una posizione più vicina alla 
simulazione che al gioco. In effetti esso si avvicina 
molto alla realtà e sono possibili confronti con 
dati reali. 

Si tratta in pratica di guidare una vettura in un 
circuito di propria ideazione, oppure riprodotto 
copiandone uno realmente esistente. Dopo il pri- 
mo impatto con il programma si inizia facilmente 
a prendere confidenza con la vettura ed allora si 
avrà la sensazione di guidare realmente e di es- 
sere liberi di farlo in Modo spericolato, senza ri- 
schiare né la pelle né il mezzo. 

Come detto in precedenza con questo pro- 
gramma è possibile creare un circuito di vostra 
ideazione oppure copiare un percorso già esi- 
stente. Quando si avrà bene in mente il progetto, 
si disegnerà su di un foglio dividendo le curve edi 
rettilinei in tanti tratti comprendenti ognuno o 
una curva o un rettilineo. Vanno contati: infatti 
l'elaboratore chiederà di quanti settori è compo- 
sta la vostra pista per poter poi chiedere per ogni 
settore se trattasi di rettilineo o curva e la relativa 
lunghezza in metri. 

Appena lanciato il programma, chiederà se 
volete le istruzioni. Dopodiché chiederà ancora 
qual'è la media delle velocità massime alla qua- 
le possono essere percorse le curve. In pratica 
sarà necessario considerare per ogni curva qua- 
l'è la velocità massima raggiungibile prima che 
n vettura cominci a sbandare e fame una me- 
dia. 

Quando venne scritto questo programma si sa- 
rebbe potuto introdurre una routine di richiesta, 
per ogni curva, della relativa velocità massima, 
ma ciò avrebbe complicato notevolmente la 
guida della vettura, peraltro già abbastanza diffi- 
cile. Una volta introdotta la media delle velocità 
massime di tutte le curve verrà chiesto il numero 
totale dei settori che compongono il tracciato. 
Introdotto questo dato inizierà la fase più lunga di 
tutto l'INPUT. Verrà chiesto di introdurre, settore per 
settore, la direzione e la lunghezza in metri. Per le 
curve sinistrose si userà il segno “minore” mentre 
per le curve destrose il segno “maggiore”; per i 
rettilinei la freccia verso l'alto. Si farà poi seguire 
una virgola e la lunghezza in metri di quel tratto. 
In questo modo l'elaboratore conoscerà le carat- 


teristiche di tutto il tracciato. In ultimo verrà chie- 
sto il numero di giri che volete compiere. Si inserirà 
uno se avrete creato un circuito aperto, altrimenti 
sarà possibile inserirme anche più di uno. 

A questo punto inizia il gioco vero e proprio. 
Verrà stampata la vettura vista da dietro e posi- 
zionata in centro strada, il semaforo ed i cruscotti. 
Il disegno della vettura, se riprodotto con cura, è 
piuttosto bello e dimostra cosa si possa fare an- 
che usando una bassa risoluzione grafica come 
quella del PET/CBM. Battendo il tasto ‘&' si potrà 
avviare il conteggio del semaforo con relativa 
emissione sonora e poi... via a tutto gas!. 

Per guidare il bolide si avranno a disposizione 
un cambio a cinque marce corrispondenti ai nu- 
meri sul tastierino numerico. Lo sterzo corrispon- 
derà al punto esclamativo ed alle virgolette o 
apici ed infine l'acceleratore e il freno saranno 
conglobati nel tasto SHIFT premendo il quale si 
avrà l'acceleratore e rilasciandolo il freno. Esami- 
niamo ora il modo di funzionare del cambio. Anzi- 
tutto per potercambiare marcia bisogna rilascia- 
re l'acceleratore per poi premere nuovamente lo 
SHIFT appena inserito il nuovo rapporto, in caso 
contrario il cambio non funzionerà. Questo per 
avvicinare alla realtà la guida, dato che cambia- 
re senza rilasciare il pedale dell'acceleratore non 
è certo molto ortodosso e non è detto che facen- 
dolo non vi si guasti definitivamente il cambio. Lo 
strumento di sinistra indica il numero della marcia 
che avete in presa, pertanto una occhiata vi sarà 
sufficiente nel caso abbiate dubbi. Ogni marcia 
ha un suo range di velocità fuori dal quale non 
potrà essere utile e precisamente: 1° da 0 a 100 - 
2* da 50 a 150 -3*da 1000 200 - 4° da 150.0 250- 
5° da 200 a 300. Facciamo un esempio: suppo- 
niamo di essere in terza marcia alla velocità di 
150 chilometri/ora. Tutto andrà bene dato che la 
velocità è compresa nel range ottimale, ma se 
cambiassimo in prima marcia otterremmo un ef- 
fetto frenante molto pronunciato sino a che la 
velocità non rientrerà nei valori assegnati alla 
prima marcia. Ora facciamo l'esempio inverso: 
siamo sempre in terza a 150 chilometri ora e insie- 
riamo la 5%, in questo caso il motore sarà costretto 
a lavorare ad un regime di rotazione troppo bas- 
so data la velocità nettamente inferiore ai giusti 
valori e di conseguenza la vettura rallenterà sem- 
pre di più nonostante la pressione sul tasto SHIFT 
corrispondente all’acceleratore e se non saremo 
pronti ad inserire la marcia più adeguata finire- 
mo per fermarci in mezzo alla pista. 

Potremo leggere la velocità in chilometri ora sullo 
strumento centrale del cruscotto. 


Figura 1 - Il diagramma 
di flusso, semplificato, 
del programma di simu- 
lazione. 


Per lo sterzo il discorso si fa più complesso, ma 
dopo un periodo di adeguamento si è facilmen- 
te in grado di usarlo in modo opportuno. Anzitutto 
si dovrà tenere ben d'occhio l'indicatore di destra 
nel quale potrete leggere la direzione del tratto di 
pista che state percorrendo e la sua lunghezza 
continuamente aggiornata, dato che il procede- 
re del vostro mezzo la farà diminuire continua- 


mente. Ovviamente quando avrete percorso tut- 
to il tratto nel quale vi trovate si passerà al succes- 
sivo. Ora vediamo come fare a regolarsi per le 
curve. Per prima cosa guardando il cruscotto di 
destra vedremo comparire uno dei tre segni che 
abbiamo usato all'inizio del programma, nella 
fase di INPUT, e cioè o il segno maggiore o il segno 
minore, o la freccia verso l'alto. Supponiamo di 


vedere il segno maggiore: ciò significherà che 
stiamo percorrendo una curva destrosa e dovre- 
mo quindi premere il tasto virgolette per sterzare 
dalla parte giusta. Se la velocità della vettura è 
inferiore alla massima velocità possibile per le 
curve avremo un effetto sovrasterzante, cioè vi 
sarà una eccessiva azione sterzante e l'auto rien- 
trerà verso l'intero della curva, ma sarà sufficien- 
te agire a piccoli tratti sul tasto virgolette per 
ottenere una azione di sterzo calibrata. Se invece 
stiamo percorrendo la curva alla sua velocità 
massima si creerà un equilibrio fra la forza centri- 
fuga, l'azione sterzante da parte vostra e l'ade- 
renza delle gomme, per cui non vi sarà nessun 
movimento laterale e la vettura si manterrà nella 
sua posizione senza sbandare. 

A questo punto entra in gioco la bravura del 
pilota. Se prima di affrontare una curva ci si pre- 
parerà ad imboccarla stringendo al massimo ver- 
so l'interno, magari con una ruota sul cordolo, si 
potrà poi percorrerne un buon tratto, se non tutta, 
ad una velocità superiore alla massima consenti- 
ta sbandando verso la parte larga e deceleran- 
do progressivamente in modo da rientrare nel 
giusto valore di velocità prima di uscire di strada 
dall'altro lato. Con questo modo di guidare si 
potrà percorrere il circuito ad una velocità che 
nella realtà solo pochi manterrebbero, vuoi per 
mancanza di coraggio, vuoi per non rischiare di 
sfasciare la propria auto. Ci si può chiedere per- 
ché, anziché utilizzare uno strumento per eviden- 
ziare la pista, non l'abbiano fatta scorrere davanti 
alla vettura. Purtroppo i dati che il programma 
deve analizzare sono molti e il BASIC è troppo 
lento per questo scopo. 

Dopo un breve periodo di assuefazione il diver- 
timento sarà assicurato e se si faranno delle gare 
con gli amici si avrà modo di appurare chi di voi è 
il più veloce e pronto alla guida. 

Terminato tutto il percorso si stamperà lo striscio- 
ne a scacchi dell'arrivo e sarà dato il tempo im- 
piegato in minuti, secondi e decimi di secondo. 


Analisi del programma 


Analizziamo ora le caratteristiche più salienti di 
questo programma. Dalla linea 520 alla linea 900 
si snoda l'algoritmo centrale del programma. In 
questa sua parte è molto importante cercare di 
ottimizzare al massimo la velocità del BASIC. 

Uno dei modi per incrementare, notevolmente, 
la suddetta velocità è quello di usare delle varia- 
bili al posto dei numeri anche quando questi 
numeri sono fissi e non cambiano mai, ovvero 
sono delle costanti. Vi consiglio di fare questa 
prova sul vostro elaboratore scrivendo e provan- 
do il seguente programma: 


10 TI$ = “000000” 
20 FORB = 0T01000:A=PEEK (151): NEXT:PRINT TI 


Dopo averlo fatto girare annotate il numero che 
stamperà e che saranno i sessantesimi di secon- 
do impiegati per l'esecuzione dello stesso, dopo- 
diché modificatelo aggiungendo alla linea 10 C 
= 151ealla linea 20 sostituite 151 con la variabile 
C, fate girare e vedrete che il tempo impiegato 
nella seconda versione del programma sarà ad- 
dirittura quasi dimezzato! 


Alla linea 600 vi è il GETA$ che ha la funzione di 
controllare se da tastiera è stato introdotto il nu- 
mero corrispondente ad una marcia, alle linee 
770-800-840, attraverso la funzione PEEK, viene 
controllato se è premuto un tasto dello sterzo ed 
infine alla linea 660 nuovamente grazie alla fun- 
zione PEEK ma alla locazione 152 corrispondente 
al solo tasto SHIFT viene controllato se stiamo fre- 
nando oppure accelerando. Ho voluto sottoline- 
are questo modo di controllare la tastiera perché 
esso ne deriva da un ben preciso motivo. Dato 
che la tastiera fa capo ad una sola porta logica si 
verifica che se si premono più tasti contempora- 
neamente solamente uno verrà depositato attra- 
verso il suo codice alla locazione 151 o nella 
variabile che segue ad una istruzione GET. Percui, 
se ad esempio si sta pigiando un tasto per sterza- 
re, è probabile che volendo cambiare marcia 
questo non sia possibile se non rilasciando il tasto 
dello sterzo. Controllando l'ordine di precedenza 
che hanno i tasti nella tastiera è possibile trovame 
due che non abbiano la precedenza su quelli del 
cambio e così ogni qualvolta si vorà cambiare 
marcia i relativi tasti numerici daranno l'effetto 
voluto interrompendo per un attimo l'effetto della 
pressione sui tasti dello sterzo. Inoltre va conside- 
rato che, mentre per il cambio l'istruzione GET è 
opportuna dato che la pressione dei relativi tasti 
avviene per tempi brevissimi e per un solo carat- 
tere alla volta, altrettanto non è per lo sterzo il 
quale, avendo una azione piuttosto continuativa 
(in curva si intende), abbisogna di una funzione 
PEEK indirizzata alla locazione ove si deposita il 
carattere del tasto premuto. Usando il GET si sa- 
rebbe obbligati a premere in modo intermittente 
il suddetto tasto. Per l'acceleratore/freno ho usa- 
to invece il tasto SHIFT il quale deposita il suo 
codice alla locazione 152, diversa quindi dalla 
locazione della tastiera e conseguentemente in- 
dipendente. 

Alla linea 720 è sviluppata la formula che per- 
mette di calcolare quanti metri mancano per 
terminare il tratto di pista che si sta percorrendo. 
In base alla ben nota formula S$=V per T, dove $= 
spazio in metri, V= velocità in metri al secondo, T 
= tempo in secondi, viene estrapolato il numero 
di metri di pista percorsi ad un giro intero dell'al- 
goritmo per poi sottrarlo ad R che è la lunghezza 
residua del tratto di pista che si sta percorrendo. 
Nel PET/CBM vi sono due variabili di sistema che 
contengono una il tempo in ore minuti e secondi 
ed una il tempo in sessantesimi di secondo, e 
precisamente TI$ e TI. Nella formula succitata si 
ha bisogno di operare sui secondi e sui decimi di 
secondo che sono ottenibili dividendo il contenu- 
to della variabile TI per sessanta, o meglio TI-Y 
diviso sessanta. Ma vediamo più da vicino come 
funziona: alla variabile R, contenente i metri resi- 
dui, viene sottratto il risultato della velocità in 
chilometri ora N diviso per il coefficiente 3.4 con- 
tenuto in J moltiplicato per la differenza fra il 
tempo posto in Y in uscita al precedente giro di 
programma ed il tempo Tl attuale diviso sessanta 
che è la variabile JW. Nell'istruzione successiva TI 
viene nuovamente posto in Y. 

Tutto questo viene effettuato circa tre volte al 
secondo, tale è la velocità media alla quale si 
sviluppano tre giri di programma nell'algoritmo 
centrale. Va osservato che il coefficiente 3.4 con- 
tenuto in J serve per trasformare la velocità da 


REMarks 


210-250 Dichiarazione delle variabili. Molte di esse verranno usate nelle parti di programma che 
esigono velocità di esecuzione al posto dei numeri o costanti. 

290 Scarica il buffer di tastiera. 

300-470 Introduzione dati. Questa parte di programma permette di definire la forma e la lunghezza del 
percorso nonché la velocità massima alla quale la vettura può percorrere le curve. 

480 Si va a 960 per la stampa iniziale. 

520-900 Fase centrale del programma. In questa parte vengono usate variabili al posto dei numeri onde 
incrementare la velocità di esecuzione. 

520 Controllo posizione vettura, se è minore o maggiore della massima larghezza della pista siva a 
1360. 

530-590 Viene aggiornata la stampa della vettura. 

600-650 Controlla se vi è un cambio marcia, se sì, lo esegue, altrimenti salta a 660, viene inoltre 
segnalato il cambio avvenuto con una emissione sonora. 

660 Controlla se è premuto l’acceleratore, azzera la locazione 59464 per terminare l'emissione 
sonora del cambio marcia, se la velocità attuale non è nei parametri consentiti dalla marcia 
inserita o se l'acceleratore non è premuto decrementa la velocità oraria. 

Se la condizione di riga 660 nonsi è verificata ese la velocità non supera la massima consentita 
dalla marcia inserita viene incrementata la velocità oraria. 

Se la velocità oraria è inferiore a zero la riporta a zero. 

Stampa la velocità oraria, i metri residui e la direzione del tratto di pista che si sta percorrendo. 
Facendo riferimento al tempo trascorso ed alla velocità oraria viene decrementata la lunghez- 
za del tratto di pista che si sta percorrendo di tanti metri quanti ne sono stati calcolati dalla 
formula. Se vi è più di un metro residuo ancora da percorrere si va a 750. 

Si passa al tratto di pista successivo, se tutta la pista è stata percorsa si va a 1210. 

Viene assegnata a R la lunghezza del tratto di pista successivo ed a B$ la sua direzione. 

A seconda che si stia percorrendo una curva destra o sinistra si va a 840 oppure a 800. 
Controlla se vi è una azione sterzante da parte del pilota e calcola la posizione della vettura 
controllata dalla variabile X per la coordinata orizzontale. 

In particolare alla riga 880 viene calcolato l’effetto combinato della forza centrifuga e della 
velocità per determinare lo spostamento laterale della vettura e successivamente, interessando 
anche le righe 890-900 mette in J% il valore di aggiornamento della posizione che andrà a 
sommarsi o a sottrarsi ad X. Infine va alla riga 520 per iniziare un altro giro di programma. 

960-1170 Stampa iniziale vettura, fondo stradale, cruscotto, semaforo, ed attesa pressione tasto “&” per 
avvio con relativa emissione sonora, accensione del semaforo ed azzeramento della variabile 
TI$S. 

1210-1320 Arrivo. In particolare alla riga 1210 viene controllato se si tratta dell’ultimo giro altrimenti 
stampa di quale giro si tratta e torna a $20 per continuare. Se ultimo giro stampa del tempo 
impiegato e attesa pressione tasto ‘“&”. Alle linee 1252-1254 vengono estratti dalla variabile di 
sistema TI i minuti, i secondi ed i decimi di secondo trascorsi dalla partenza della vettura. 

1360-1510 Viene evidenziato l’urto della vettura, sulla destra o sulla sinistra, causato dal fuori strada con 
relativa emissione sonora e si va a 1290 per ripartire. 

1550-1950 — Istruzioni. 


chilometri ora a metri al secondo e che il suo 
valore reale sarebbe 3.6. È stato però modificato 
sulla base di alcune prove, dato che da quando 
viene eseguita la sottrazione TI-Y a quando viene 
posto in Y il valore di TI si perdono alcuni sessante- 
simi di secondo in quanto il calcolatore deve 
terminare l'esecuzione della formula, leggere ed 
interpretare i due punti ed eseguire Y = TI. Tutto 
questo costa appunto alcuni cicli macchina che 
rubano qualche frazione di secondo. Sembra po- 
co, ma alla fine, specie sui lunghi percorsi, vi pos- 
sono essere differenze di molti secondi fra la real- 
tà ed il calcolatore. Cormeggendo il valore di Jia 
situazione raggiunge nuovamente il giusto equi- 
librio. Infine l'IF logico, sempre alla linea 720, con- 
trolla se vi sono ancora metri da percorrere oppu- 
re se il tratto è terminato, nel qual caso si passa 
alla linea 730 per incrementare W di uno e quindi 
passare ad un nuovo settore della pista contenu- 
to in A(W) e B$(W). 

Alla linea 880 abbiamo la formula grazie alla 
quale viene calcolata la posizione della vettura 
controllata dalla variabile X usata nella funzione 
TAB in fase di stampa video. La variabile J% è 


uguale alla velocità in chilometri ora N diviso 10 
che è contenuto in C meno T che è la massima 
velocità in curva. Il risultato di questa operazione 
viene analizzato dai tre IF logici che seguono di 
cui due alle righe 890-900 per controllare che J% 
sia solamente zero, 1 oppure —-1, dopodiché alle 
linee 830 oppure 870 J% viene sommato o sottrat- 
to ad X a seconda che si stia percormendo una 
curva a destra 0 a sinistra. Tutto questo farà spo- 
stare la vettura di una colonna in più o in meno. 
I controlli logici accennati in precedenza servo- 
no ad evitare che lo spostamento laterale sia di 
più di una colonna dato che il disegno della 
vettura ha un bordo di cancellazione di un solo 
carattere e quindi spostamenti maggiori non ne 
cancellerebbero completamente i contomi, di 
conseguenza J% viene arrotondato a 1, a zero 
oppure a -1. 
Nella fase di arrivo il tempo impiegato a coprire 
tutto il percorso è dato in minuti secondi e decimi, 
dato che la variabile TI$ contiene solo i minutiedi 
secondi alle linee di programma 1252-1254 viene 
manipolata la variabile Tl onde ottenere i decimi 
di secondo oltre che i secondi ed i minuti. Per 
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ELENCO DELLE PRINCIPALI VARIABILI 


59464 locazione di memoria usata per ottenere l'emissione sonora caricandovi un valore compreso 
fra 1 e 255. 

Media di tutte le velocità massime delle varie curve diviso 10. 

Totale fra rettilinei e curve. 

Direzione del tratto di pista nella fase di INPUT. 

Lunghezza in metri del tratto di pista nella fase di INPUT. 

Velocità oraria. 

152 locazione di memoria dove si deposita l'immagine del tasto SHIFT, valore 1 se premuto, zero 
se rilasciato. Per i PET vecchie ROM va sostituito con 516. 

Valore di decremento o di incremento della velocità per le marce 1° e 2°. 

Valore di decremento o di incremento della velocità per le marce 3° 4* 5°. 

Assume il valore di II o LL a seconda della marcia inserita. 

216 locazione utile per posizionare la linea di stampa sullo schermo, per PET vecchie ROM 245. 
Metri residui di pista. 

Direzione del tratto di pista che si sta percorrendo. 

151 locazione dove si deposita il valore dell’ultimo tasto premuto, per PET vecchie ROM 515. 


Valori massimi e minimi di velocità delle varie marce. 

Minima velocità consentita in riferimento alla marcia inserita 

Massima velocità consentita in riferimento alla marcia inserita. 

Coefficiente avente valore 3.4 usato nel calcolo dello scorrimento della pista. 

Indice di A() e di B$() avente funzione di regolare il susseguirsi dei tratti di pista durante la corsa 
della vettura. 


Variabili usate nella routine di estrapolazione del tempo finale della variabile TI contenente i 


Figura 2 - Listato del 
programma Formula 
Uno. 
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sessantesimi di secondo trascorsi dalla partenza della vettura. 


prima cosa Tl viene caricato in JJ in modo da 
evitare che il valore di tempo si modifichi, divi- 
dendo JJ per 60 e prendendone solo la parte 
intera si ottengono i minuti secondi che vengono 
caricati in KK, dividendo KK per sessanta e pren- 
dendone la parte intera si hanno i minuti primi 
che vengono caricati in YY, sottraendo a KK, che 
contiene i secondi, YY moltiplicato sessanta, che 
da il totale dei secondi che concorrono a formare 
i minuti, si hanno come residuo i minuti secondi 
perla stampa, infine dividendo iltempo contenu- 
to in JJ per sessanta e sottraendolo alla sola parte 
intera di JJ diviso sessanta si ha la parte decimale 
residua non sufficiente a completare un secondo 
della quale per mezzo delle funzioni stringa MID$ 
e STR$ viene presa solo la prima cifra, e cioè 
quella dei decimi di secondo, che viene caricata 
in YY$. Alla riga 1260 le tre variabili YY, KK, YY$ 
vengono stampate. 


FORMULA 1 


190 REM 

119 REM**SCRITTO DA STELVIO BERTUZZO I 
N NOVEMBRE 1981 

120 REM#*#STELVIO BERTUZZO VIA AURELIA 
N. 89/19 VADO LIGURE <SV> #*ITAL'Y*%* 
139 REM#*COLLABORAZIONE GRAFICA DI 
"TONY" DI SARIO 

145 REMmLOADDEFmREM FORMULA UNO A CRO 
NOMETRO 

1509 REM 

170 GOSUB1550 

186 REM 

199 REM INIZIALIZZAZIONE 

200 REM 

219 CLR:PRINT"I":X=19:B=216:0=10:2=32: 


Osservazioni finali 


Questo programma è stato scritto su un CBM 
serie 4000 il cui BASIC è più veloce delle serie 
precedenti. Coloro i quali abbiano la serie 3000 
purtroppo non possono velocizzare in alcun mo- 
do la loro macchina, ma la velocità sarà comun- 
que sempre sufficiente. Per coloro che possiedo- 
no la serie 2000 vi è la possibilità di velocizzare 
l'edit di schermo aggiungendo alla linea di pro- 
gramma 290 POKE 59458,62. Se poi volessero tor- 
nare nella condizione normale dovranno digitare 
POKE 59458,30. Chi possedesse un PET vecchie 
ROM apporti le seguenti modifiche al program- 
ma: linea 230 sostituire ZB = 151 con ZB = 515, 
sostituire ZC = 152 con ZC = 516, linea 210 sostitui- 
re B= 216 con B = 245. 

Il programma gira comodamente anche nelle 

versioni ad 8 Kbyte. Dopo aver copiato tutto il 
listato bisogna provvedere a registrarlo su di una 
memoria di massa prima di provarlo, dato che un 
errore di copiatura dei valori di una POKE potreb- 
be far bloccare la macchina e quindi far perdere 
tutto il lavoro. 
Dato che il programma è provvisto di sonoro è 
necessario ricordare che volendo registrarlo do- 
po il RUN usando il registratore a cassette si dovrà 
prima digitare POKE 59464,0, POKE 59466,0, POKE 
594670 altrimenti l'operazione non andrà a buon 
fine. 

E con questo termino augurandovi buon diver- 
timento e raccomandandovi di non provare a 
fare con la vostra auto, moto, o motorino quello 
che riuscirete a fare con il vostro PET/CBM trucca- 
to da vettura di formula uno! 


Seguito programma Formula 


PRANDONI 


FE&WE-__AP= = 


ECT a = ii =" 
= es 35° F= e = 


ae i SII 


* [PRINCE 


PRANDONI S.p.A. 
DIVISIONE INFORMATICA 
v.le Monte Grappa,31 24047 TREVIGLIO, Bg 
Tel0363/47222 Telex 3200101 


PRINCE S.p.A. 
via L.DaVinci 20062 CASSANO d'ADDA,Mi 
Tel. 0363/63222 Telex 334521 
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Seguito programma 
Formula Uno. 
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IFHCOTHENN=MM 

POKEB.I :PRINT:PRINTTABECEI>"q 
sIsPRINT:PRINTTABCIO" d"N 
POKEB.I:PRINT:PRINTTABE CYD" 

POKEB, I :PRINT:PRINTTABCVY>3B$CH> IN 


R=R-N/J%<TI-#>/JM:vwY=TI  IFR>INGOTO?S 


b=kd+Y : IFWU>OTHENGOTO121O 
P=fi (4) :B$=B$ 11) 
IFB$="<"G0T08090 
IFB£=">"G0T0346 
G=PEEK<2B> : IFG=CCTHENX=K—-W 
IFG=BBTHENK=X+" 
c0T0520 
G=PEEK<2B) :IFG=CCG0T0830 
210 IFN>ZZTHENX=X+Y:G0T0520 
820 DOTOS526o 
839 GOSUBS330 :X=X+JX :G0T0526 
840 G=PEEKCZB) :IFG=BBG0T0370 
850 IFN>ZZTHENX=X-W:G0T0520 
360 GOTOS29 
870 GO0SUBSSO :X=X-JX :G0T0526 
380 JZX=N/C-T:1FJX>=2AANDJZ<=VTHENIZ=MM 
:RETURN 
890 IF VTHENJZ=V :RETURN 
200 IFIXZCZATHENJZ=ZA RETURN 
939 REM 
949 REM PARTENZA 
956 REM 
969 FORA=33488T033527 :POKEA, 150 :NEXT 
979 POKE33488,1692:POKE33526,192:POKE33 
490,192 :POKE33525, 162 
980 POKE33489,102:POKE33527,102 
999 POKEB,I:PRINT:PRINT" <d3 
<a 0006 Db < Pia 
1960 POKEB,.I:PRINT:PRINTTABCYWYW>B$:;R:60 
SUBS30 
1980 PRINT"S"TAB<(19>)" —,":PRINTTABC19) 
"0 ]":PRINTTABC15>" 10 |" :PRINTTABC19>" 10 
Il " 


I":sPRINTTABC19)" —-" 
1196 PRINT"=i3 BATTI “8” " 

11169 GETA$S:IFAS<C>"&"THEN1116 

1120 PRINT"8z ri 

1136 PRINT"8" :FORA=6T04 :POKEZG,NN:PRIN 
TTAB<(26)"@" :FORFF=69T025 :POKEZG, MM NEXTF 
E 

1140 NEXTA 

1150 PRINT"S"TABC15)" 

":PRINTTAB<C19)" 


":PRINTTABC19) 
":PRINTTABC19)" 
1160 PRINTTABC19)" —":PRINTTABC19)" 
"sPRINTTABC19)" —":TI$="000000" :7=0 

1170 POKEZG,00:FORA=BT025 :NEXT :POKEZG, 
MP :RETURN 

1180 REM 

1199 REM ARRIVO 

1200 REM 

1210 EE=EE-1:IFEEDOTHENM=1:R=ACW) :B$=B 
$ (4) :PRINT"8"DD-EE+1" GIRO" :GOT0529 

1220 PRINT "298*8t*** IA 
COCO 

1230 PRINT 
RSS 

1240 PRINT"*%%% FAL 
MIRO SUR DORTRE n) 

1250 PRINT"SMAN"TAB(35) "AMA" 

1252 JJ=TI:KK=INTCJJ/69) :vY=INTCKK/60) 
:KK=KK- #60 

1254 YW$=MID$(STR$(JJ/60-INT(JJ/60)),2 
+2) 

1269 PRINT"ENTEMPO: MIN. gi"YY"MSEC. g"KK 
"NOEC. @'YWY8 

1270 POKEB,I:PRINT:PRINT" <a> 
<a 900 Mm < yin 


1999 PRINTTABC13)" 10 |" :PRINTTABC15)" |O 


POKEZG,.FF :NEXT :POKEZG, MM 
2909 PRINT"S"TAB<(15>" 9 BATTI “&” " 
1300 GETRS:IFA$C>"®"G0T01300 

132159 IFAS="&"THENW=1 :R=A 4) :B$=B£ 43 :X 
=10:N=0:PRINT"I”" 

13 EE=DD :G0T04836 

13309 REM 

1346 REM URTO A SINISTRA 
REM 

(>16560T014656 

> sFORGG=O6T010:FF=12:POKEZG.NN:P 


2 
1 


1280 FF=190:FORA=?5T0100:POKEZG,A:FF=F 
F-1: 
129 


[e] 
) w m q 


Neo Term 
Wu 


cn 


1499 POKEB,FF :PRINT :PRINTTABCK>" 
POKEB,FF 

1419 PRINT :PRINTTABCK> "LI" 

1420 POKEZG,00:;FPOKEZG,SS NEXT :POKEZG,M 
M:60T01290 

1430 REM 

1449 REM URTO A DESTRA 

1459 REM 

1460 FORGG=6T019:FF=12:POKEZG,NN:POKEZ 
G,HH:x=34 

1470 POKEB,FF :PRINT:PRINTTABCK>" n 

1489 POKEB,FF :PRINT:PRINTTABK> MW": 
FF=16 

1499 POKEB,.FF :PRINT:PRINTTABCK>" 
POKEB,FF 

1590 PRINT :PRINTTABCX> "I pe 

1519 POKEZG,00:POKEZG,SS:NEXT :POKEZG,M 
M:G0T01256 

1520 REM 

1530 REM ISTRUZIONI 

1540 REM 

1556 PRINT"I"TAB<(6>" 9 #FORMULA UNO AC 
RONOMETRO* E" 

1569 PRINTTABC5) " MMNIMINEIMEIMISISUOI LE IS 
TRUZIONI PRINT <S/ND 

1570 GETA$:IFA$C>"N"ANDAS<>"S"G0T01570 

1580 IFA$="N"THENRETURN 

1599 PRINT"JIL GIOCO SIMULA LA CORSA A 
CRONOMETRO 

1596 PRINT"EDI UNA VETTURA DI FORMULA 
UNO, LA MEDIA 

1629 PRINT"EDELLE MASSIME VELOCITA” DI 
OGNI CURVA 

1549 PRINT"NTI DARA” LA VELOCITA” OTTI 
MALE " 

1559 PRINT"MBRLLA QUALE POTRAI PERCORRE 
RE LE CURVE 

1660 PRINT"ISENZA USCIRE DI STRADA. 

16726 PRINT"N BATTI sS8HIFT®B 

15689 IFPEEK<152>)=9G0T01680 

1690 PRINT"OCREA UNA PISTA DI FANTASIA 

1796 PRINT"BOPPURE SIMULA UN CIRCUITO 
REALMENTE Ò 

1719 PRINT"MESISTENTE IMMETTENDO I DAT 
I CHE 

17209 PRINT"HNTI VERRANNO CHIESTI. IL TE 
MPO 

1739 PRINT"MFINALE E” ESPRESSO IN MINU 
TI, 

1740 PRINT"MBSECONDI E DECIMI DI SECOND 
O. 

1759 PRINT"MIL CAMBIO E” A 5 MARCE CHE 
CORRISPONDONO 

17509 PRINT"AI NUMERI DEL TASTIERINO, S 
TERZA CON: 

1770 PRINT"NG ! ® E LE 3 VIRGOLETTE D, 
PREMENDO 

1730 PRINT"MA SHIFT ® ACCELERI, RILASC 
IANDOLO FRENI. 

1799 PRINT"MSPREMI SSHIFT 

1806 IFPEEK(152>=1G0T01800 


ini 
ala 
Pio 


INT"ILE MARCE 
1 G PRINT"BACCELERAFE NELLA GIUS 
JCCESSIONE 
1840 PRINT"NI*® G-166 2° 590-150 La 
Ù dici 
1259 PRINT"? 156-250 balla IS) URL! 
I CRUSCOTTI 
1 1 Pf I SPOTFA GERE: MARCIA 
ERITA 
1870 PRINT "NIYELO( ORARIA. DIREZI 
E DEL 
1886 PRINT"ESTRATTO DI TR CHE TA 
ERCORRENDO 
13896 PRINT "ICO? RELATIVI METRI RES 
UI ANCORA 
1966 PRINT"BDA PERCORRERE BATTENDO 
DB POTRAI 
1919 PRINT"BRIPARTIRE. 
1920 PRINT"MPREMI s8HIFT 
1939 IFPEEKC152>=16G0T01930 
1946 IFPEEK<C1525>-=9SG0T019406 
1956 RETURN 
ILista imboli srafici 
19 1 SHIFT HOME =CHR£147> 
200 1 HOME =CHR£*c19> 
7 CRSRT =CHR$C17) 
10 e 1 SHIFT HOME =CHR£C147) 
20 CRSPI =CHR$ 175 
:40 1 SHIFT HOME =CHR$<(147> 
Ei CRSRT =CHR$C17> 
350 1 CRSPT =CHR£C17) 
1 REVERSE =CHR$(185 
1 SHIFT REVERSE =CHR$C(145) 
1 REVERSE =CHR£(183> 
1 SHIFT REVERSE =CHR${145) 
1 REVERSE =CHR£C(183) 
1 SHIFT REVERSE =CHR$c145) 
66 1 CRSRI =CHR$C175> 
[5] 1 RSRT HRs(17 
i] i :CHR$C175 
1 SE =CHR$C18) 
15) 1 CRSRT =CHR$C17) 
i REVERSE =CHR$C18 
490 1 PSR CHRSC17 
1 REVERSE =CHR$C185) 
429 RSP1 CHR$C175 
146 1 HIFT HOME =CHR$C147) 
470 a CRS CHR$C175 
1 3HIF HOME =CHR$C147) 
539 1 REVERSE =CHR#C135 
1 HIFT FEVERSE =CHR$ 1465) 
556 | REVERSE CHRs$sc135 
i SHIFT REVERSE =CHR£C1465) 
1 REVERSE HR® 185 
SHIFT REVERSE =CHR$C146) 


E C1° AGOTOI 10 


VANNO INSERITE 


SE 


TR 


3 


Se Lei ha già un computer, o se vuole 
acquistarne uno, si iscriva subito almo- 
dernissimo corso per corrispondenza 
IST 


PROGRAMMAZIONE, sett 
BASIC e MICROCOMPUTER 


Non vincolato ad alcun tipo di computer, 
il nuovo corso IST è costituito da 12 
gruppi di lezioni per l'apprendimento 
della programmazione in BASIC e per 
la sua applicazione a vari microelabora- 
tori (TEXAS INSTRUMENTS, APPLE, 
ATARI, COLOR GENIE, COLOR COM- 
PUTER, EPSON, ecc.), in particolare ai 
modelli Commodore e Sinclair. 


AL TERMINE DEL CORSO: 
® Sarà in grado di capire qualsiasi pro- 


® Con l'ISTLei può studiare 
nella comodità di casa Sua, 
come e quando preferisce @ 
L'ISST Le garantisce un'assi- 


stenza didattica personalizza- 
ta con Esperti qualificati @ || 
Certificato Finale IST dimo- 
strerà il Suo impegno edi risul- 
tati ottenuti @ 


Il BASIC é indispensabile 


gramma e, autonomamente, potrà 
crearne di nuovi ® Saprà valutare i pro- 
grammi standard e scegliere quelli più 
adatti alleSue necessità ® Conoscerà le 
caratteristiche delle varie unità di am- 
pliamento @ Contfronterà il linguaggio 
BASIC con altri altrettanto noti ® 

Giungerà, attraverso una corretta anali- 
si dei problemi, ad una solida base 
teorico - pratica dell'EDP (elaborazione 
elettronica dati) per utilizzaria a livello 
personale e professionale @® Sarà pron- 
to adoperare con le macchine program- 
mabili della nuova generazione ® 


Chieda subito — in VISIONE GRATUI- 
TA, per posta e senza alcun impegno — 
la prima dispensa per una PROVA DI 
STUDIO e la documentazione comple- 
ta. Riceverà tutto con invio raccoman- 
dato 


ISTITUTO 
SVIZZERO 
DI TECNICA 


La scuola del progresso 


Associato al Consigho Europeo Insegnamento per 
Corrispondenza 

Insegna a distanza da otre 75 anni. in Italia da oltre 35 
Non effettua ma: viste a domicilo 

Non richiede tasse di ades:one 0 di interruzione 

Con sede unica a Luino (Varese) 


fp: compilare, ritagliare e spedire in busta a 
IST- ISTITUTO SVIZZERO DI TECNICA 


Via S. Pietro 49 - 21016 LUINO VA 


Ed desidero ricevere - 


BM 65a 


Tel. 0332/53 04 69 
(dalle 8,00 alle 17,30) 


in VISIONE GRATUITA, per posta e senza al- 


cun impegno - la prima dispensa per una PROVA DI STUDIO e la docu- 


mentazione completa del Corso 
Intendo studiare con il computer 


DO che posseggo già 
Cognome 
L 4 - | I liege! lppene dere (e dietista i I IR | a I DESIO CAP, de 
Nome Età 
| Lp cogiia sli dicci BT IPO e TIT ERO oi TO] 
Via N co 
I _ BRE RESDO TRONI DENSI MESSE, DOOBeE NODO: [eps Ari ir PI 
CAP Città <% 
Ei sg Dos ihih iodio 
i Professione 0 studi frequentati Prov 3 
L — E IL. |}9 
3 i Ei 
L - = = ____«WZ 
reale l'an (>) 
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Seguito programma 


Formula Uno. 
560 : 1 REVERSE =CHR$C18> : 
60 : SRI =CHR$C17) 
1 SHIFT REVERSE =CHR$146) 50 3 CRORT =CHRBCI 
1 REVERSE =CHR$<18) it cdi 
1 SHIFT REVERSE =CHR$146) HOME =CHR$C147) 
570 : 1 REVERSE =CHR$<18) sii 
i 1 SHIFT REVERSE =CHR$<146) Li hesbradià 
1 REVERSE =CHR$<18> “= ! 
1 SHIFT REVERSE =CHR$(146) il salita 
5S0 : 1 REVERSE =CHR$C18) È PARE IRR 
1 SHIFT REVERSE =CHR$<146) tt =CHRSC1: 
1 REVERSE =CHR$<18) PITTORE 
1 SHIFT REVERSE =CHR$(1465 i ein du 
É CPSPI SC C175 
SSO : 1 REVERSE =CHR$C18) Se Sinti 
1 SHIFT REVERSE =CHR$<146) nn tale Susie 
699 : 1 REVERSE =CHR$(18) EIIISRIER 
1 SHIFT REVERSE =CHR$<146> SHIFT HONE =CHRSC147) 
1 REVERSE =CHR$C13) ale sita 
999 : 1 REVERSE =CHR$C18) si Siti ti 


1 SHIFT REVERSE =CHR$C146) 


si sia 
1099 : 1 HOME =CHR£C19) RETE MIRROR 


1190 : 1 HOME =CHR$C13) OR ro 
1 REVERSE =CHR$C18) cnofe acimecito 


1120 : 1 HOME =CHR$C13) tit anscità 


1130 : 1 HOME =CHR$C19> CRSRt =CHR$C17) 


REVERSE =CHR$C(18) 
SHIFT REVERSE =CHR$(146> 


1150 : 1 HOME =CHR$C19) 


1210 : 1 HOME =CHR$C19) REVERSE =CHR$C18) 
SHIFT REVERSE =CHF$(146) 


1220 : 1 HOME =CHR$C139) 
CRSRT =CHR$C175 
1240 : 1 REVERSE =CHR$(13) REVERSE =CHR£C18) 
1 SHIFT REVERSE =CHR$(146) SHIFT REVERSE =CHR*(146> 
1 REVERSE =CHR$C(18> 
1 SHIFT REVERSE =CHR$C146) CRSRT =CHR$C17) 
1 REVERSE =CHR$C18) REVERSE =CHR$C18) 
1 SHIFT REVERSE =CHR$<(146) 
1 REVERSE =CHR$C(18> SHIFT HOME =CHR$C147) 
1 SHIFT REVERSE =CHR$C1465 
1 REVERSE =CHR$C18) CRSRT =CHR$C17) 
1 SHIFT REVERSE =CHR$C146) 
1 REVERSE =CHR$C18) : CRSRT =CHR$C17) 
1 SHIFT REVERSE =CHR$(146) 
CRSRT =CHR$(17) 
1260 : 2 CRSRPT =CHR$C179) 
1 REVERSE =CHR$C18> CRSRT =CHR$C17) 
1 SHIFT REVERSE =CHR$(146) 
1 REVERSE =CHR$<185 IRSRT =CHR$(17) 
1 SHIFT REVERSE =CHR£(146) 
1 REVERSE =CHR$C18> CRSRT =CHR$C17) 
1276 : 1 REVERSE =CHR$C18) CRSRT =CHR$C17) 
1 SHIFT REVERSE =CHR$C146) 
CRSRT =CHR$(17) 
1299 : 1 HOME =CHR$C19) 1 REVERSE =CHR$C18) 
1 REVERSE =CHR$C183) SHIFT REVERSE =CHR$<146> 
1219 : 1 SHIFT HOME =CHR$<147) CRSRT =CHR$C17) 
1550 : 1 SHIFT HOME =CHR$<147) CRSRT =CHR$C175 
1 REVERSE =CHR$C185 REVERSE =CHR$C18) 


1 SHIFT REVERSE =CHR$C145) 
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HOTLINE 
UPDATE 
GARANZIA 


COMMODORE 6.4Z 
HOTLINE-UPDATE-GARANZIA 


Tre nuove parole nel campo dell'informatica. Esse rappresentano il 


- NUOVO SERVIZIO - 


che la Leoni Informatica, prima fra tutti offre ai suoi clienti. COMMODORE 64% 


— linea telefonica dedicata alla risoluzione dei problemi dei clienti. 


Chiamando il numero telefonico riservato che troverete sulla cartolina 
garanzia acclusa ai programmi, riceverete tutte le informazioni che vi 
necessitano. 


— servizio di aggiornamento continuo dei programmi acquistati. Ogni modi- 


fica ai programmi realizzati dalla Leoni Informatica sarà fornita agli utenti 
degli stessi. 


ALCUNI PROGRAMMI PER COMMODORE 64 


Descrizione 


Gestione Anagrafiche 

Totocalcio Sviluppo Colonnare 
Gestione dei conti Casa 
Impariamo il basic 

Dichiarazione Iva 

Cento Programmi per il 64 
Compilatore Pet Speed 

Fido Clienti 

Conto Corrente 

Gestione piano dei Conti 
Gestione Appuntamenti 

Gestione Ordini 

Gestione Librerie 

Mailing List 

Rubrica Telefonica 

Gestione Scheda 4800 car. 
Gestione Scheda Agganciata al Mailing List 
Scadenziario Effetti 

Contabilità Fatture Iva/Imponibile 
Contabilità Semplice 

Legge 373 

Magazzino Grossisti (2500 art.) 
Magazzino Fatturazione Agganciate 
Gestione Ottici 

Gestione Dentisti 

Gestione Farmacie 


Prezzo 


120.000 

80.000 
100.000 
100.000 

60.000 

80.000 

80.000 
100.000 
150.000 
150.000 
150.000 
150.000 
150.000 
150.000 
120.000 
160.000 
250.000 
200.000 
200.000 
400.000 
150.000 
380.000 
400.000 
300.000 
300.000 
400.000 


0152 
0158 
0159 
0160 
0162/c 
0163 
0165/c 
0169/c 
0080 
0081 
0087 
0131 
0132 
0133 
0170 
0171 
0155 
0166/c 
0167/c 
0168/c 
0306/c 
0309/c 
0310/c 
0312 
0313/c 
0314/c 
0157 
0319 
0322/c 


Gestione Studi Medici 
Magazzino Dettaglio (2500 art.) 
Magazzino Taglia e Colore 
Bolle e Fatture 

Screen Grafix 

Copia Disco Singolo 
Assembler Disassembler 
Magazzeno alfanumerico (1100 articoli) 
Gestione Clubs Nautici 
Gestione Officine 

Gestione Ristoranti 
Gestione Hotel/Pensioni 
Gestione Parrucchieri 
Gestione Gommisti 
Gestione Tavola Calda 
Gestione Lavanderia 
Gestione Condominio 
Compactor 

Scompactor 

PET Emulator 

Character editor 

Hires image 

Hard copy 

Master 64 

Tool 64 

Stat 64 

Calc Result Advanced 
Easy Script 

Forth 64 


— tutti i programmi Leoni Informatica sono coperti da garanzia a Vita contro 
guasti di origine. 


| programmi Leoni sono disponibili presso tutti i punti vendita MELCHIONI Vendita per corrispondenza anche di HARDWARE 
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Caratteri speciali per 75 


I due programmi che presentiamo questo mese, MATRICI e STAMPA, sono stati 
preparati per il computer portatile HP-75C e per la stampante ad impatto HP 
82905B; essi permettono di far riprodurre dalla stampante tutto il set dei simboli 
che compaiono sul visore del computer. 


di Valerio Anselmo 


5 hi possiede un HP-75C e una stampante HP 
829058 sa che non tutto ciò che compare sul 
visore del computer è stampabile così come lo si 
vede sul display. La stampante HP 82905B ha un 
set di caratteri normali (quelli che vanno dal nu- 
mero ASCII 32 a 126) e un set aggiuntivo di carat- 
teri contenente altri simboli, che però non com- 
prendono tutti i caratteri che possono comparire 
sul visore dell'HP-75C. 

Il motivo è noto. | caratteri non stampabili di cui 
parliamo sono di due tipi: i cosiddetti caratteri di 
comando e i caratteri sottolineati. | caratteri di 
comando (che hanno i numeri ASCII da00 31e7il 
127), benché tutti (tranne quattro) rappresentati 
con simboli speciali sul visore dell'HP-75C, sono di 
per se stessi dei comandi o entrano a far parte di 
sequenze di caratteri di comando che agiscono 
sulle periferiche. Quattro di questi caratteri (il nu- 
mero 8: BS = BACK STEP, il numero 10: LF = LINE 
FEED, il numero 13: CR = CARRIAGE RETURN e il 
numero 27: ESC = ESCAPE) condizionano anche il 
visore del computer e non hanno alcun simbolo 
ad essi associato. Per la stampante, alcuni dei 
caratteri di comando che compaiono sul visore 
del computer rappresentano, per esempio, l'a- 
vanzamento del foglio (il carattere numero 12: FF 
= FORM FEED, y sul visore, ottenuto con CTL L), 
l'attivazione del cicalino incorporato (carattere 
7: BEL = BELL. # sul visore, ottenuto con CTL G), la 
predisposizione per la stampa del set di caratteri 
alternativo (n. 14 : SO = SHIFT OUT, 7 sul visore, 
ottenuto con CTL N), il rientro al set normale (n. 15: 
SI = SHIFT IN, ® sul visore, ottenuto con CTL O), e 
così via. | caratteri sottolineati (con numero ASCII 
compreso fra 128 e 255) o sono ignorati dalla 
stampante o fanno entrare in funzione il set di 
caratteri alternativo, fornendo in stampa dei ca- 
ratteri che non hanno niente a che vedere con 
quello che compare sul visore. Per questo motivo, 
qualora volessimo far stampare un testo conte- 
nente tutti i caratteri visualizzabili sul visore, la 
stampante ne accetterebbe alcuni come co- 
mandi, altri li samperebbe così come sono, per 
altri ancora fomirebbe delle lettere che non rap- 
presentano quelle presenti sul visore e il resto lo 
ignorerebbe. 

Se vogliamo trovare il modo di far stampare così 
come li vediamo tutti i caratteri che possono 
comparire sul visore, dobbiamo per forza ricorrere 
al modo grafico della stampante. La cosa non è 
facilissima, per cui forse può essere utile un pro- 
grammino che renda più agevole la creazione 


delle matrici e, soprattutto, eviti i numerosi con- 
teggi che sono inevitabili quando si devono cal- 
colare matrici grafiche. Sarà poi necessario un 
altro programma che legga il testo da stampare 
e, facendo ricorso alle matrici grafiche quando è 
necessario, faccia fare dalla stampante una co- 
pia identica di quel che si vede sul visore. | due 
programmi sono complementari in quanto MA- 
TRICI crea le matrici di cui si servirà STAMPA perfar 
riprodurre i disegni. Il programma di stampa prov- 
vederà poi in modo autonomo anche alla sottoli- 
neatura dei caratteri che compaiono sottolineati 
sul visore. 
Vediamo allora come è possibile creare i caratte- 
ri che desideriamo, ricorrendo al primo dei due 
programmi riportati, MATRICI, che si assume il 
compito di facilitare un po' le cose. Il programma 
MATRICI (matrici di caratteri), crea delle matrici 
grafiche, partendo dal vostro disegno di un ca- 
rattere e convertendolo nella sequenza di carat- 
teri che, opportunamente integrata da STAMPA, 
la stampante capirà. Le matrici che creeremo 
verranno immesse in un archivio di dati chiamato 
EXTRA e, al momento opportuno, potranno essere 
lette e inviate alla stampante in forma da questa 
comprensibile. Ognuna di esse equivale ad una 
lettera e contiene tutti i dati indispensabili, ad 
esclusione dei comandi (forniti da STAMPA) ne- 
cessari per far passare la stampante nel modo 
grafico e riportarla nel modo normale non appe- 
na ha finito di stampare il disegno del carattere. 
Sia per l'HP-75C che per la stampante HP 829058, 
ogni carattere normale è largo sei colonne, cioè 
sei serie verticali di punti; ognuna di queste serie 
verticali è composta da 9 punti, sia sul visore del 
computer che nella riproduzione normale su car- 
ta. Quando però la stampante opera nel modo 
grafico, restano disponibili solo 8 punti in vertica- 
le, per cui, operando in questo Modo, sarà impos- 
sibile una riproduzione perfetta di tutto ciò che 
compare sul visore. Fortunatamente, la nona riga 
di punti (l’ultima in basso dall'alto) serve però solo 
per le sottolineature e per l'estrema propaggine 
delle lettere “discendenti”, come la g, la p, laq 
minuscole e non interessa la riproduzione delle 
lettere speciali che rappresentano sul visore i ca- 
ratteri di comando di cui stiamo parlando. Il pro- 
gramma dunque permette la creazione facilita- 
ta di caratteri larghi sei colonne, come quelli nor- 
mali della stampante: questa stessa larghezza la 
si è voluta mantenere soprattutto per ragioni di 
uniformità estetica con i rimanenti caratteri. 
Delle sei colonne, la sesta partendo da sinistra 
è sempre vuota perché costituisce la separazio- 
ne minima esistente tra il carattere che viene 


stampato e quello successivo, per cui il program- 
ma chiederà soltanto l'immissione delle prime 
cinque colonne, lasciando la sesta automatica- 
mente vuota. 
I nuovi caratteri da immettere nell'archivio delle 
matrici tramite MATRICI sono quelli rappresentati 
dalla figura 11 

Si noti che, oltre alle forme dei caratteri di co- 
mando, si è dovuto aggiungere la forma, incom- 
pleta perché senza sottolineatura, dei caratteri 
numero 141 e 155, controparte sottolineata dei 
caratteri numero 13 e 27 rispettivamente, questi 
ultimi come s'è detto non rappresentabili sul viso- 
re. Il carattere numero 155,": , non è immediata- 
mente raggiungibile da tastiera, per cui si è indi- 
cato il modo di ottenerlo tramite la sequenza 
CHR$(155), da immettere con la pressione di RTN. 

Per preparare le matrici dei nuovi caratteri sarà 
innanzitutto necessario munirsi di carta quadret- 
tata, o di carta millimetrata (e di una lente), e 
tracciare su un rettangolo di 5 quadratini in oriz- 
zontale per 8 in verticale la forma della nuova 
lettera, annerendo i quadratini necessari. Per 
avere un buon riferimento, si può copiare la forma 
delle varie lettere dal visore dell'HP-75C, premen- 
do le opportune combinazioni di tasti indicate 
nel prospetto. Si noti che l'ottava riga orizzontale 
(l'ultima in basso del rettangolo sul quale stiamo 
lavorando) in generale è vuota, perché serve solo 
per la parte discendente di alcuni caratteri, co- 
me le minuscole di cui s'è detto 0, nel nostro caso, 
per i tre caratteri 6, u e ji . Quando il risultato ci 
sembra, sulla carta, soddisfacente, possiamo 
passare alla realizzazione delle matrici con l'aiu- 
to di MATRICI. 
Prima di cominciare, è necessario accertarsi che 
in memoria non esista nessun altro archivio chia- 
mato EXTRA, in quanto con tale nome verrà chia- 
mato l'archivio delle matrici. Se per caso ve ne 
fosse uno, cancellarlo con PURGE 0 cambiare il 
nome con RENAME. Ora collegare e assegnare la 
stampante, immettere il programma e avviarlo. 
La prima domanda che si presenta è: 

carattere corrispondente: 
clia quale si risponde immettendo il carattere 
che dovrà risultare corrispondente al disegno che 
vogliamo immagazzinare nell'archivio. Ogni ca- 
rattere speciale viene archiviato sotto il numero 
ASCII di un carattere (meglio se con lo stesso 
numero ASCII del carattere rappresentato). Im- 
mettere quindi il carattere col quale tale lettera 
dovrà essere conosciuta (ad esempio a: CTL D, 
per il disegno della lettera «). Si noti che, se voles- 
simo immettere lo spazio, l'apostrofo, le virgolette 
o la virgola, sarebbe necessario racchiuderli tra 
Vitgiolett@; (+ er ere 0), 
Segue quindi la prima delle otto richieste di tipo 
grafico. Comparirà cioè la scritta: 
1: 00000 

col cursore posizionato sul primo della serie di 
cinque “O”. Secondo la convenzione qui adotta- 
ta, una O maiuscola rappresenta un quadratino 
vuoto del nostro disegno, mentre una | maiuscola 
rappresenta un quadratino pieno. Dopo aver 
premuto SHIFT LOCK per passare nel modo maiu- 
scole, immettere dunque, usando i tasti O e |, la 
serie di cinque spazi (O) e punti (1) che costitui- 
scono il disegno della prima (partendo dall'alto) 
riga orizzontale della lettera che vogliamo crea- 
re. Se una riga è vuota (senza quadratini anneri- 


Numero 


ASCII 


d N 


e 


- 
U èa N - C(CNOeUa 


» 


NO UU è» UU N » O 


DATA 


DATA ** 


DATA 
DATA 
DATA 
DATA 


DATA *° 
DATA ® 


DATA 


DATA *r 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Figura 1 - I nuovi carat- 
teri da inserire in archi- 
vio. 


Forma Tasti da premere per ottenere 


1l carattere sul visore 


CTL barra spaziatrice 


xi 


c o oe DD a !|9 0 è. da E 7 Qd»dnIOI rr +. 


+ N < sx EX < CC -“ 0 9 59 V.0Z2FCXR- 0 UMUOD ID 


- 


Lo) 
SHIFT 1/R RUN 
CHR$ (155) [RTNI 


D TE” fù Mme 


Figura 2 - Contenuto 


umémI DATA "I%"aa” dell'archivio EXTRA. 
sea DATA 


pipa Sia tag 21 DATA ” 
? 8geTea” DATA 
di ile Jo DATA ”< 
DATA ? 
DATA ? 
DATA * 
DATA 2% 
DATA > 
DATA ’é*sz 
31 DATA "sT& 
»gr*ke” 127 DATA ? :a888” 
?PISSSI* 141 DATA ?+-***> 
?:F@F:° 155 DATA 
> uR2SL” 


4 
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Figura 3 - La serie com- 
pleta dei caratteri come 
compare stampata con 
l’HP 82905B. 


Figura 4 - Programmi 
STAMPA e MATRICI, 
con un testo di prova 
contenente i caratteri 
creati. 


è" XeaBfa c Au 


9 
I 


10 ! STAMPA 
20 DIM A$C961,C$(96) 


TEnNRSC rAa0duu I*£# 


| "RBUL' ()X+,-./0123456789:;< 
cABCDEFGHIJKLMNOPORSTUVWXYZI[\]®_ ‘“abedefghi jkimnopgrstuvwxyz{1}%- 


30 INPUT ’archivio da stampare: ’; A$ @ ASSIGN # 1 TO A$, TEXT 


40 EDIT A$ @ RENUMBER 
50 ASSIGN # 2 TO *EXTRA”,BASIC 
60 PWIDTH INF @® ON ERROR GOTO 160 


70 FOR I=10 TO INF STEP 10 @ ENDLINE CHR$(13) @ C$='* 
BO READ # 1,I ; A$ @ FOR J=1 TO LEN(A$) @ N=NUM(A$CJ,J1) 


90 IF N=136 THEN N=126 @ C$[J,J]="_* 
100 IF N=138 THEN N=127 @ C$C(J,J]="_” 
110 IF N=141 OR N=155 THEN C$C(J,J]=” 
120 IF N>127 THEN N=N-128 @ C$(J,J]=*_* 


@ GOTO 130 
@ GOTO 140 
_” ® GOTO 140 
ELSE C$[J,J)=' * 


1350 IF N>31 AND N<127 THEN PRINT CHR$ (N); @ GOTO 150 
140 READ # 2,N : B$ @ PRINT CHR$(27)&” tb66"&B$&CHR$ (0); 
150 NEXT J @ PRINT @ ENDLINE @ PRINT C$ @ NEXT I 

160 IF ERRL=140 THEN PRINT * *; @ GOTO 150 

170 OFF ERROR @ ENDLINE @ DISP 


10 ! MATRICI 
20 DELAY O @ ASSIGN # 1 TO *EXTRA”,BASIC 
30 INPUT "carattere corrispondente: *’;B$ 


40 MARGIN é @® FOR I=1 TO 5 @ AC(I)=0 @ NEXT I 
50 FOR I=1 TO 8 ® DISP ‘riga "&STR$(I)&": 


*3 @ INPUT 


??,700000*; A$ 


60 FOR J=1 TO 5 @ IF A$CJ,J)="I* THEN A(J)=A(J)+2°(8-1) 


70 NEXT J @ NEXT I 
80 Ds=' 


90 PRINT CHR$(27)&”3b56'&D$ @ INPUT *va bene? 


100 PRINT # 1,NUM(B$) ; D$ 
110 MARGIN 60 ® GOTO 30 


@ FOR I=1 TO 5 @ D$=D$&CHR$(A(I)) @ NEXT I 


?,7”S”3 C$ @ IF C$#°"S” THEN 40 


TESTO DI PROVA 


contiene 
visore 


Il testo seguente 
rappresentati sul 


caratteri sottolineati, 


da lettere greche :come asfoscAhurtsan o altre lettere 


caratteri di comando 


come x+4Ra0bUu=fii-, oltre agli stessi simboli sottolineati («*f*+ag@Cagi ecc.). Si 


tratta solo di 
viene stampato tale e quale. 


ti), basterà premere RTN per immettere la fila già 
predisposta di cinque “O”. Per spostarsi sugli “O” 
ci si potrà anche servire del tasto con la freccia a 
destra. Se si immette una lettera di troppo, cioè si 
supera il quinto carattere, si ode un segnale acu- 
stico che avverte che quel carattere e i successivi 
non verranno presi in considerazione. Si ripeta il 
procedimento per tutte le righe, fino all'ottava 
compresa. 

Il programma a questo punto crea la sequenza 
di comandi necessari per far riprodume dalla 
stampante la matrice del carattere e lo fa stam- 
pare in prova (la stampante, come s'è detto, 
dev'essere collegata). Per non sprecare troppa 
carta, la stampante non avanzerà che di un'in- 
terlinea, ma il disegno si può comunque osserva- 
re e giudicare alzando il coperchio e guardando 
accanto alla testina di stampa. Ciò sarà possibile 
perché la stampante avrà effettuato l'interlinea, 
ma non ancora il ritorno carrello, e quindi la testi- 
na si troverà alla destra del carattere stampato. 
Sul visore intanto è comparsa l'ultima domanda: 


va bene? 


per la quale è suggerita la risposta S per sì. Se il 
disegno va bene, premere RTN, sennò immettere 
N per no e ricominciare un'altra volta a fornire i 
dati. 


una prova per dimostrare che tutto cio' che si vede sul visore 


Una volta che si è completato l'archivio di matrici, 
non è più necessario che il programma MATRICI 
resti in memoria. Lo si potrà cancellare con PUR- 
GE, dopo averlo eventualmente registrato su 
scheda per un uso futuro (per registrare i due 
programmi MATRICI e STAMPA e l'archivio di ma- 
trici EXTRA occorrono due schede magnetiche, 
tre piste in tutto). 

L'archivio EXTRA, una volta completato, avrà 
l'aspetto riportato in figura 2. 

L'archivio di matrici così creato può essere te- 
nuto in memoria (occupa 387 byte) e utilizzato 
con il secondo programma presentato, STAMPA, 
che legge un testo e stampa tutte le lettere che 
compaiono sul visore e che si trovano nel set 
normale di caratteri della stampante, o nell'ar- 
chivio delle matrici. 

Lo stesso programma provvederà inoltre a far ef- 
fettuare la sottolineatura dei caratteri che sul vi- 
sore compaiono sottolineati. Prima della stampa 
l'archivio di testo viene rinumerato dal program- 
ma, ma attenzione a non rinumerare inavvertita- 
mente l'archivio EXTRA contenente le matrici, 
perché sarebbe da rifare. A causa di questo peri- 
colo, non appena l'archivio delle matrici è pron- 
to, sarà bene fame subito una copia. 

In figura 3 compare la serie completa dei carat- 
teri (dal numero 0 al numero 255) stampata con 


l'HP 829058. Gli spazi bianchi nelle posizioni 8, 10, 
13 e 27 della prima riga corrispondono ai relativi 
caratteri che non compaiono sul visore dell'HP- 
75C. La forma dei caratteri è stata copiata dal 
visore dell'HP-75C ed è stata creata con MATRICI. 
Come si noterà, i simboli da noi creati risultano 
perfettamente uguali a quelliche compaiono sul 
visore del computer. 

Naturalmente il programma si può usare anche 
per altri scopi: per creare lettere di altri alfabeti, 
come quello cirillico per il russo, ad esempio, o per 
comporre segni speciali, a patto che essi rientrino 
in una matrice di punti di 5x8, come i normali 
caratteri della stampante. 

Un breve sguardo ora ad alcune caratteristiche 
dei due programmi. Cominciamo con MATRICI, il 
programma presentato per primo. 

Dopo aver aperto (0 creato, se ancora non c'è) 
l'archivio di dati che dovrà accogliere le matrici 
grafiche dei nuovi caratteri (riga 20), il program- 
ma chiede quale sarà il carattere sotto cui andrà 
registrato il disegno (riga 30) e quindi con un'ite- 
razione azzera la parte del vettore A () che ci 
interessa (riga 40), completando così le opera- 
zioni iniziali. 

Comincia ora la prima parte del programma (ri- 
ghe 50-70), quella che effettuerà per noi i con- 
teggi. La stampante HP 829058 nel modo grafico 
stampa un byte per volta in verticale (una colon- 
na) con il bit meno significativo in basso (bit 0= 
1) e quello più significativo in alto (bit 7 = 128). 
Come si sa, il valore dei bit cresce in modo espo- 
nenziale (2*) a seconda della posizione all'inter- 
no del byte di 8 bit. Il valore sarà di 1 per il bit 0 
(1 = 2°), di 2 perilbit 1(2= 2')e così via fino al 
valore di 128 per il bit 7 (128 = 2”). L'immissione 
dei punti che costituiscono la figura dovrà inve- 
ce, avvenire per righe orizzontali, facendo uso del 
visore del computer. Sul visore apparirà quindi 
una fila orizzontale di “O" (rappresentante lo sta- 
to iniziale di un determinato bit per 5 colonne 
successive), preceduta dal numero della riga 
che stiamo immettendo (da 1 a 8a partire dal- 
l'alto). 

Si noti la tecnica adottata per presentare l'input. 
A sinistra sul visore si presenta, con DISP seguito da 
punto e virgola, una stringa (il messaggio) che 
contiene una variabile; a destra la parte che 
costituisce un suggerimento per l'input viene in- 
trodotta con un'istruzione INPUT in cui la prima 
parte è costituita da una stringa vuota. Immessi i 
dati con i tasti e O(maiuscoli), che sonovicini (e 
quindi più comodi di 1 e 0), la somma dei valori 
dei bit per le varie colonne viene effettuata dalla 
riga 60. Quando nel vettore A () sono stati accu- 
mulati i valori dei 5 byte che servono per costruire 
il disegno del carattere, si passa alla seconda 
parte del programma (righe 80-100), che costrui- 
sce la stringa per la stampa, la prova e quindi, se 
va bene, la registra nell'archivio delle matrici. L'ul- 
tima riga fa tornare il programma alla richiesta 
dell'immissione di un altro disegno, dopo aver 
riportato a 60 il margine, in precedenza (riga 40) 
portato a sei per segnalare eventuali sconfina- 
menti. Per terminare basterà premere ATTN. 

La stampante HP 829058 passa al modo grafi- 
co can la sequenza di fuga formata dal caratte- 
re con il numero ASCII 27 (carattere di fuga, o 
“escape’”), seguito da un asterisco, una b minu- 
scola, il numero di byte (0 colonne) di cui è com- 


GRUPPI DI 
CONTINUITÀ STATICI 


Serie “NO BREAK” 


È Realizzati con tecnologie 
costruttive d'avanguardia, assicurano 
la “qualità”e la “continuità” dell'energia 
elettrica al Vs Sistema di elaborazione anche 
in mancanza della tensione di rete (ENEL). 
La tensione in uscita, stabilizzata e 
priva di qualsiasi disturbo, ha una forma 
d'onda sinusoidale ottenuta con tecnica PWM (Pulse 
Width Modulation). L'autonomia di funzionamento, in man 
canza della tensione di rete, dipende soltanto dalla capacità 
della batteria di accumulatori impiegata. 
Nostro programma di produzione: 
e moduli alimentatori stabilizzati lineari e switching 
e stabilizzatori di tensione elettronici e ferro saturo 
e caricabatterie per impieghi professionali e industriali 
e inverters 
e trasformatori e parti magnetiche avvolte 
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posto il disegno e una G maiuscola, seguita a sua 
volta dai caratteri che rappresentano ognuno 
(con il loro numero ASCII) il numero equivalente 
alla somma dei bit per quella colonna. La riga 90 
crea la premessa della sequenza e la completa 
aggiungendovi i sei caratteri (D$) che rappre- 
sentano quelle somme di bit per colonna. La se- 
sta colonna, come s'è detto, avrà valore zero non 
essendo stata toccata dai conteggi della riga 60. 
Viene poi effettuata la prova di stampa, seguita 
(riga 100) dalla registrazione della matrice nel- 
l'archivio di dati, se la prova di stampa è risultata 
soddisfacente. Come si sarà notato, nell'archivio 
di dati vengono registrati solo cinque caratteri 
per matrice. Questo risparmio di memoria si è 
ottenuto facendo fornite dal programma di 
stampa la parte iniziale della sequenza per la 
CrPa e l'ultimo carattere, che è sempre il CHR$ 

) 

Il secondo programma, STAMPA, si prefigge lo 
scopo di far stampare tutte le lettere visualizzate 
sul visore del computer e usate per scrivere un 
testo, ammesso che esista un archivio di dati 
chiamato EXTRA con le matrici dei caratteri non 
comunemente stampabili. Sia l'archivio del testo 
da stampare che l'archivio delle matrici dovran- 
no già essere presenti in memoria, naturalmente. 
La menzione del tipo di programma (TEXT e BA- 
SIC) nelle istruzioni 30 e 50 serve ad evitare il 
pericolo che vengano scambiati i nomi degli ar- 
chivi, con una conseguente indesiderata rinume- 
raziona accidentale dell'archivio di dati EXTRA 
delle matrici. L'archivio delle matrici, non sarà 
male ripeterlo, non si deve rinumerare. Il motivo 
per cui per le matrici è stato creato un archivio di 
dati (BASIC) e non un archivio di testo, che avreb- 
be occupato minor spazio in memoria (3 byte in 
meno per riga), è proprio la maggior sicurezza 
che una distinzione del genere offre contro una 
rinumerazione accidentale. 

Le righe del testo da stampare vengono lette e, 
prima della stampa, esaminate carattere per ca- 
rattere per vedere se vi sono caratteri non previsti 
dal set normale di caratteri della stampante. 

Si cercano prima (righe 90-110) i caratteri sottoli- 
neati corrispondenti ai quattro non stampabili (n. 
8, 10, 13 e 27). Due di questi, il carattere numero 
136 (8 + 128) e il numero 138 (10 + 128), sono 
riprodotti in modo identico ad altri due caratteri 
già presenti (il numero 126, —, del set normale e il 
numero 127, 7, dell'archivio EXTRA), più la sottoli- 
neatura. Per gli altri due, i numeri 141 e 155, sono 
state create apposite matrici. Per gli altri caratteri 
sottolineati si prepara la sottolineatura immetten- 
dola nella stringa-buffer C$ e si converte il carat- 
00 suo corrispondente non sottolineato (riga 
La stringa C$, contenente le possibili sottolineatu- 
re, viene creata man mano che un carattere è 
letto (un segno di sottolineatura per un carattere 
sottolineato, uno spazio vuoto per un carattere 
non sottolineato) e verrà stampata dalla testina 
di stampa nel viaggio di ritorno, prima dell'interli- 
nea. Si è riusciti ad ottenere questo con un'oppor- 
tuno impiego del comando ENDLINE. Per ogni 
riga, infatti, è stata data prima (riga 70) un'istru- 
zione ENDLINE CHR$(13) che fa sì che la stam- 
pante effettui il ritorno carrello (con il carattere 
numero 13, appunto), ma non l'interlinea (0 
avanzamento verso l'alto della carta fino alla riga 


successiva), e poi (riga 150) ENDLINE da solo per 
riportare le cose alla normalità (ritorno carrello / 
interlinea) prima della stampa della stringa delle 
eventuali sottolineature. Un'altra istruzione ENDLI- 
NE è poi necessaria alla fine (riga 170) per risiste- 
mare le cose prima della fine del programma. A 
causa di questo fatto, se interrompiamo la stam- 
pa del testo con ATTN prima della fine e non 
intendiamo proseguirla con CONT, sarà indispen- 
sabile immettere a Mano il comando ENDLINE 
per normalizzare la stampa successiva. ENDLINE è 
infatti una “dichiarazione globale” e viene tenu- 
ta in memoria dal computer, anche se poi agisce 
sulla stampante. 

Sistemate le sottolineature, si vede che tipo di 
carattere si deve stampare. Un carattere normale 
viene subito stampato (riga 130); quando si in- 
contra uno dei caratteri speciali, invece, viene 
0) e stampata la matrice corrispondente (riga 
Si è preferito stampare subito carattere per carat- 
tere le lettere che si presentavano all'andata per 
evitare di doverle accumulare in una stringa- 
buffer troppo lunga prima di stamparle. Ogni ca- 
rattere che viene stampato in modo grafico, con 
ricorso alla matrice dell'archivio EXTRA, occupa 
infatti 11 byte (5 byte di comando e 6 di dati) e 
sarebbe stato necessario dimensionare una strin- 
ga di oltre 900 byte (con probabile spreco di 
memoria) per poter accogliere tutte le eventuali 
sequenze previste per la riga, qualora questa fos- 
se stata molto lunga e avesse contenuto una 
maggioranza di caratteri speciali. Stfampando le 
lettere man mano che si presentano si è anche 
ottenuto un certo aumento della velocità di 
stampa. 

Gli errori intrappolati dalle istruzioni 60 e 120 
sono di un solo tipo (l'errore numero 34, “no data”, 
causato dalla lettura di una riga inesistente in un 
archivio) e si possono verificare alla riga 80, perla 
lettura oltre la fine dell'archivio di testo, o alla riga 
140, per non aver trovato nell'archivio di dati una 
matrice corispondente al carattere speciale da 
stampare. In ques'ultimo caso, il carattere la cui 
matrice non è presente non viene stampato (vie- 
ne stampato uno spazio vuoto al suo posto), Ma il 
programma prosegue. | caratteri la cui matrice 
non è presente sono, come si è visto sopra, quelli 
con numero ASCII 8, 10, 13 e 27. Se invece l'errore 
si è verificato alla riga 80, significa che il testo da 
stampare è terminato, per cui il programma fini- 


sce. 

Se si desidera apportare modifiche o aggiunte a 
questo programma, si tenga presente che la rinu- 
merazione automatica non cambierà il numero 
di riga che compare dopo ERRL nell'istruzione 
160. Se si rinumera il programma dopo avervi 
apportato delle modifiche, sarà quindi necessa- 
rio cambiare poi a mano il numero che segue 
ERRL, se il numero della corrispondente istruzione 
(ora 140) sarà cambiato. le | 


Questo articolo sarebbe dovuto comparire 
prima di quello pubblicato sul numero di Feb- 
braio, che faceva riferimento ai programmi 


STAMPA e MATRICI. Per un banale errore, l'ordi- 
ne dei due articoli è stato scambiato. Ce ne 
scusiamo con i lettori. 


Il VIC “impara” 
dall'esperienza 


Listato |] - Programma 
“pari o dispari”. 


di Eugenio Rapella 
Il linguaggio 


I | programma presentato nel listato 2, costi- 

tuisce un esempio di applicazione dei pro- 
cessi di Markov al calcolatore; il programma è 
redatto per un VIC 20 espanso, ma può facilmen- 
te essere utilizzato per il C 64 e il CBM PET. 

Per la comprensione del programma non è ne- 
cessaria una conoscenza completa dei processi 
di Markov, basterà pensare ad un “sistema” che 
può trovarsi in “n” stati distinti e che può passare 
da uno stato ad un aftto (0 rimanere nello stato 
attuale) con una certa probabilità. 

Quando la probabilità di passaggio dallo stato 
“i” (presente) allo stato ‘)” (futuro) dipende es- 
clusivamente dalla situazione presente e non da 
tutta “la storia precedente” - ovvero da "come vi 
si è giunti” - si ha un processo di Markov. Le proba- 
bilità di passaggio da unto stato all'altro vengono 
dette probabilità di transizione. Se queste proba- 
bilità non variano al passare del tempo, il proces- 
so si dice stazionario. 

| valori delle probabifità di transizione vengono 

agevolmente rappresentati in una matrice di 
transizione in cui l'elemento pi rappresenta la 
probabilità ché il sistema, attualmente allo stato 
“i” passi, all'istante suc©@ssivo, allo stato “)". Nella 
presente trattazione il tàmpo viene considerato 
come grandezza discreta. 
Ad esempio, consitieriàrmo un sistema con 3 pos- 
sibili stati: A, B e C. 
La matrice di ttansizione potrebbe essere: 


questo significa che, sè il sistema si trova nello 
stato A, passerà, all'istante successivo, allo stato B 
con probabilità 0.25; allo stato C con probabilità 
0.25 mentre con probabilità 0.5 rimarrà nello stato 
A. 


La secondariga ci dice che, ogniqualvolta il siste- 
ma si trova nello stato Bpassa obbligatoriamente 
allo stato C; la terza ci ififorma che dallo stato C si 
passa, con la stessa probabilità, allo stato A 0 si 
rimane nello stato C. 

| valori della matrice, in quanto probabilità, 
sono compresi tra 0 e 1 e la somma dei valori di 
ogni riga è uguale a 1. $e il processo è stazionario, 
una possibile successione di stati del sistema pro- 
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Listato 2 - Programma 
“linguaggio”. 


1 REM IL LINGUAGGIO 
2 REM CBM 3932 
} REM I.P. ©. "RESTA" 


REM SONDRIO 5,5.A. 


5 REM E.RAPELLA 


DIM A<C26,25) 


8 GOSUBSOO 


T$=" ":PRINT"IDBI,"> 
GETA$ 
IFR$=""THEN10 


IFA$="#" THENPRINT"I" :G0T0200 


PRINT" +A$+" =": 
J=ASCCA$>-54 
»-64 
DZ2ETHENJ=M 
IFI<C >26THENI=O 
Ac I, sACI,Jd+1 


GOTO1O 

3 REM 

5 FORI=STO026 
Seb 

5 FORI=STO28 
S=S+AC1,J>:MEXTI 
IFS=B8THEN2S6 


posto nell'esempio potrebbe essere AABCACC- 
CAAAAC.... mentre la successione ABACB... risulta 
inammissibile, in quanto dallo stato B non si può 
passare allo stato A, né da C a B. 
La successione delle lettere alfabetiche che for- 
mano le parole è strutturata in modo diverso da 
lingua a lingua. 
Nelle parole italiane le coppie di lettere come 
“Ma”, “ca”, “le” sono senz'altro più frequenti della 
coppia “ps” (presente, ad esempio, in termini 
me “lapsus” o “psicanalisi”); nella lingua ingle- 
se sono invece abbastanza frequenti le coppie di 
lettere come “wh" (in “when”, “who”, “why” ecc;) 
inesistenti nella lingua italiana. 
Consideriamo ora un sistema che può assumere 
27 stati distinti: le 26 lettere dell'alfabeto + lo 
“spazio” inteso come carattere di separazione tra 
una parola e l'altra. 
Una frase sarà intesa come una serie di passaggi 
da uno stato all'altro, ad esempio nella frase “lO 
CORRO" il sistema passa dallo stato iniziale “I” 
allo stato “O” quindi allo stato “SPAZIO”, poi Dl 
stato “C"” ecc. 


FORI=BT026 Nella prima parte del programma in esame, il 
ACI, J>=ACI,J)AS:NEXTI calcolatore accetta in entrata un testo qualsiasi 
NESTI fino a quando non viene immesso il simbolo “*” 
ver! mei iran aiar (asterisco) che segnala la fine del testo. In questa 
soniantone <= fase, simboli diversi dalle lettere alfabetiche ven- 
S=S+ACL,I) gono stampati sullo schermo, ma considerati co- 
IFS>KTHEN360 me “spazio”. 
NEXTI Man mano che l'immissione del testo procede, il 
IFI =B0R I=2?THENPRINT" ";:6G0T0386 calcolatore aggiorna i valori di una matrice qua- 
fit dii i drata A di 27x27 elementi: agli indici di linea e 
IFI>26THENL=26 colonna corrispondono le lettere alfabetiche + lo 
GETR$ :IFR$=""THEN316 “spazio” e ogni elemento della matrice rappre- 
GETS$:IFRS=""THEN400 senta il numero di volte che una determinata 
GOTO319 lettera (indice 1) è stata immediatamente segui- 
PRINT'IMFFPPTE EEE TERE" ta da un'altra determinata lettera (indice J). 
PR PRI x pa Ad esempio, supponendo l'alfabeto costituito 
i iti Re IL LINGUAGGIO A dalle sole tre lettere A, B e C l'immissione della 
i stringa ABBACCCCACC + originerebbe la matri- 
ce: 


QWRIN 


WWW 
LAO NP WR 


w 


BOOCGCODDAINOOA 


Ù 


WWuWWw 


PRINT"'*qpuestperirteisinise 
PRINT"BSCRIVI IL TESTO." 
5 PRINT"BCARATTERI DIVERSI DALLE " 
50 PRINT"MLETTERE VENGONO CONSIDERATI 


PRINT"BCOME SPAZI. 
PRINT"BSCRIVI # PER FINIRE" 1 

9 PRINT"EBEDO ATTENDI UN ATTIMO" 1 
520 RETURN 


FRFLOI Una volta costruita, la matrice A viene trastorma- 
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BI 


1 


1 


» =CHR£<C17> 
SRe =CHR$£C29) 


HOME =CHR$C1475 


CRSR© =CHR$C157) 


HOME =CHR$<1475 


r =CHR$C175 


CRSRT 


CRSRT 


CRSR1 


=CHR$C(175 


=CHR$ (175 


=CHR$C175 


ta in una matrice di transizione dividendo ogni 
elemento per la somma dei valori della propria 
linea (se i valori di una certa linea sono tutti nulli, 
questa operazione non viene eseguita per detta 
linea). 

Proseguendo nell'esempio precedente e indi- 
cando con $ (i) la somma dei valori della i-esima 
linea, siha $(1) = 3; $(2)=2:S(3)=5 percuila 
matrice viene trasformata nella seguente: 


FIERERSI 
1/2 2 
1/5 4/8 


A questo punto il calcolatore stampa un testo 


casuale in cui la probabilità di successione di 
una data coppia di lettere viene fornita dalla 
matrice A. L'output del testo prosegue in modo 
indefinito; premendo un tasto qualunque si ottie- 
ne la sospensione dell'elaborazione, che viene 
ripresa premendo ulteriormente un tasto. 

Se il testo in entrata è sufficientemente esteso - 
diciamo di almeno 60 parole - quello in uscita 
risulta essere una buona simulazione del linguag- 
gio proposto: se inseriamo una pagina in lingua 
italiana otteniamo un testo che “sa di italiano”, 
così per il francese, tedesco ecc. 

Prima di concludere voglio aggiungere un 

paio di osservazioni che possono suggerire qual- 
che miglioramento: poiché lo “spazio” è trattato 
alla stregua di qualsiasi altra lettera, è possibile 
ottenere in uscita un testo con qualche parola di 
lunghezza eccessiva; inoltre, se in entrata sono 
presenti parole con lettere doppie, es. “io corro”, 
in uscita è possibile avere parole come “comro” o 
“como”. 
Nonostante queste limitazioni, per altro superabi- 
li, il programma fornisce risultati interessanti, che 
naturalmente sono tanto migliori quanto mag- 
giormente risulta esteso il testo in entrata. 


Il gioco del pari o dispari 


In questo notissimo gioco presentato nel listato 
1, due giocatori, A e B, mostrano contemporanea 
mente le dita di una mano: possono mostrare 1, 
2, 3, 4,5 o nessun dito. Se il totale delle dita 
mostrate è pari vince A, se dispari vince B. La 
partita non può finire in parità e, data la simme- 
tria del gioco, non esiste alcuna strategia vincen- 
te. 
Supponiamo di giocare molte partite. È ovvio che 
se A decide di giocare sempre “pari”, B se ne 
accorge e gioca sempre “dispari” vincendo ripe- 
tutamente. Lo stesso avviene se A decide di alter- 
nare sistematicamente “pari” e “dispari” o se gio- 
ca ripetutamente la stessa sequenza, ad esem- 
pio 3 volte pari, 2 dispari, 3 pari, 2 dispari ecc. 
La miglior strategia è quella di giocare in modo 
imprevedibile, ad esempio lanciando una mone- 
ta e giocando pari se esce testa, dispari se esce 
croce. 
Nel programma che segue, il calcolatore (gioca- 
tore A) imposta il suo gioco aggiornando una 
matrice A a 4 indici, in cui ogni indice può assu- 
mere due valori: 0 oppure 1 (nel VIC 20 gli indici 
dei vettori possono assumere valore 0, per cui DIM 
A (1,1,1,1) riserva lo spazio per 16 elementi). 

La posizione degli indici - 1, 2, 3, 4 - indica 
rispettivamente la quartultima, terzultima, penul- 


tima ed ultima giocata; il loro valore - 0oppure 1 - 


indica rispettivamente PARI o DISPARI. Il valore di 
un elemento di A, per una certa combinazione di 
indici, indica il numero di volte che una certa 
successione di giocate, da parte del giocatore 
“umano” B, si è verificata durante la serie di parti- 
te. 

Così, se A(1,0,0,0)= 136 A(1,0,0,1) = 20significa 
che il giocatore B, dopo la sequenza “DPP”, ha 
giocato PARI per 13 volte e DISPARI per 20 volte. 
In base ai valori della matrice A il programma 
decide (istruzioni 60 e 70) se giocare pari o dispa- 
ri, quindi (istruzioni 80 - 90) attende la giocata in 
entrata. 

Alle istruzioni 100 e 110 viene determinato il 
vincitore (se le giocate sono entrambe pari o 
entrambe dispari vince il computer - somma pari 
- in caso contrario vince il giocatore) e aggiorna- 
to il totale partite vinte. 

All'istruzione 120 la matrice A viene aggiomata in 
base all'ultima giocata (Y) del giocatore B men- 
tre alla 130 gli attuali indici della matrice A ven- 
gono “ruotati a sinistra”: l'ultima giocata (Y) di- 
viene la penultima (63), la penultima (G3) divie- 
ne la terzultima (62) e così via. 
Dopo aver caricato il programma, mettetevi alla 
tastiera e cominciate a battere ripetutamente 
una serie di zeri (per PARI) e di uno (per DISPARI) 
cercando di “mescolarli” in modo imprevedibile. 
Fate almeno un centinaio di partite; rimarrete 
sorpresi di come il VIC abbia “imparato” il vostro 
modo di giocare e se la cavi egregiamente. 
Naturalmente, poiché nel programma non è pre- 
sente alcuna RND, le giocate del VIC sono stretta- 
mente determinate e, aggiornando a vostra vol- 
ta la matrice A “dall'esterno” (impresa che richie- 
de grande pazienza), potreste batterlo sistemati- 
camente (potete invitare a giocare delle perso- 
pa senza rivelar loro la strategia adottata dal 
VIC). 
A riprova di quanto detto all'inizio sulla miglior 
strategia a disposizione del giocatore, provate a 
sostituire la linea 80 con: 

80 Y = INT(RND(1) + 0,5) 
e cancellate la numero 85. 
Il VIC si sostituirà a voi giocando P o D “casual- 
mente” (0 meglio, “pseudocasualmente’”) men- 
tre nel resto del programma cercherà di “pene- 
trare la propria psicologia”; sullo schermo scorre- 
ranno i risultati ed il totale di partite vinte peri due 
giocatori si manterrà, mediamente, uguale. 
Se sostituite la 80 con: 

80 Y = INT(RND(1) + 0,7) 
simulerete un giocatore che gioca “casualmen- 
te”, ma con una spiccata tendenza a giocare 
“dispari” (con probabilità 0,3 gioca PARI, con pro- 
babilità 0,7 gioca DISPARI); il VIC “se ne accorge” 
e gioca di conseguenza... a | 


Figura 1 - REMarks del 
listato |. 
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Scorpion 


Fra tutti i programmi che mi è capitato di veder girare su Apple II non ho mai trovato una battaglia tra 
carri armati. Ciò riempiva di malcelata gioia i possessori di video-game Atari che vedevano in questo un 
punto a favore del loro sistema. 

Qualche mese fa ho quindi deciso di porre rimedio a questa imbarazzante situazione (si trattava pur 
sempre di difendere l'onore del mio computer) e ho cominciato, conscio della tragica lentezza del 
BASIC, a scrivere le prime routine per una battaglia di carri in linguaggio macchina. Questo lavoro, 
cominciato con alcune piccole routine per il disegno dei singoli punti sullo schermo, è sfociato in un 
programma di una certa lunghezza (circa 2 Kbyte), ma di una notevole velocità che ben giustifica il 
tempo perso a lavorare in Assembler. Vorrei però tralasciare per ora gli affascinanti retroscena di tutta 
la vicenda e descrivere il modo di adattare il gioco al proprio gusto personale. Per chi odiasse metter le 
mani nei programmi altrui (condivido il punto di vista) provvederà la parte del programma scritta in 
BASIC a gestire le opzioni del gioco. 


di Carlo Magnaghi 


e) er prima cosa il campo di gioco: il program- 
ma non ha esigenze troppo restrittive in pro- 
posito, chiunque potrà creare il proprio campo di 
gioco rispettando alcune semplici regole. 

1) Il calcolatore muove i carri sulla seconda pagi- 
na grafica, e in tale pagina dovrete creare la 
vostra immagine. 

2) Lo schermo dovrà essere bordato da una dop- 
pia linea bianca (per intenderci volendo dise- 
gnare il vostro schermo tramite un programma 
BASIC dovrete scrivere: HPLOT 0,0 TO 279,0 TO 
279,191 TO 0,191 TO 0,1 TO 278,1 TO 278,190 TO 
1,190 TO 1,1). 

3) Le locazioni di memoria 16380, 16381, conten- 
gono rispettivamente la coordinata orizzontale e 
la coordinata verticale per la stampa del pun- 
teggio del carro armato comandato dal paddle 
0, le locazioni 16382, 16383, le analoghe coordi- 
nate per il carro armato comandato dal paddle 
1; per un regolare funzionamento del program- 
ma le coordinate orizzontali dovranno essere mi- 
nori di 39, quelle verticali minori di 185. 

4) Dovranno restare abbastanza zone nere da 
permettere ai carri di muoversi agevolmente, in 
particolare dovranno restare liberi da disegni gli 
angoli in alto a sinistra e in basso a destra. 

Si può poi modificare a proprio gusto l'emissione 
di suoni da parte del calcolatore; basterà mette- 
re, in ciascuna delle locazioni di memoria elen- 
cate, 0 se non vorremo sentire un dato suono, 48 
se invece lo vomemo sentire. Le locazioni sono: 
9485 per il suono delle esplosioni, 9251 e 9275 per 
il suono che i carri fanno urtando gli ostacoli, 8508 
per il click che si sente ritmicamente per tutto il 
gioco. 

Un'altra modifica semplice e di un certo inte- 
resse riguarda il movimento dei carri: se poniamo 
29 nella locazione 8864 e 8 nella locazione 8885 
quando un carro dovrà girare lo farà stando fer- 
mo in un punto, ponendo invece in queste loca- 
zioni rispettivamente 176 e 155 il carro per girare 
compirà una curva di raggio dipendente dalla 
velocità di rotazione. 

L'ultima modifica è un po’ più complessa e ri- 
guarda i comandi impartiti dalle paddle: dovre- 


mo mettere due numeri nelle locazioni 8778 e 
8782. Quando il calcolatore leggerà dal paddle 
relativo a un carro un numero compreso tra que- 
sti due il carro stesso andrà dritto, mentre quando 
il valore letto sarà superiore al valore della loca- 
zione 8782 il carro girerà in senso orario, e girerà 
invece in senso antiorario quando il valore letto 
sarà minore del valore della locazione 8778. 

Inutile dire che il valore della locazione 8778 
deve essere minore del valore della locazione 
8782. Tanto maggiore sarà la differenza tra questi 
due valori, tanto più facile sarà far andar dritto il 
carro armato. 

Bene, ora abbiamo detto quando il carro deve 

girare, ma come determinare la velocità di rota- 
zione? Vi è una tabella apposita in memoria: ogni 
volta che il carro deve girare (in senso orario o 
antiorario) va a leggere un valore in questa ta- 
bella (il tutto è stato congegnato affinché il pro- 
gramma legga ogni volta il valore successivo a 
quello letto la volta precedente). Se il valore letto 
dal paddle è minore di questo valore, nel caso di 
rotazione antioraria, o è maggiore di 256 meno 
questo valore, nel caso di rotazione oraria, il carro 
gira, altrimenti non gira. Questa tabella è posta in 
memoria in sedici locazioni consecutive a partire 
dalla locazione 8958; tanto maggiori saranno i 
valori che metterete in queste locazioni, tanto più 
il caro girerà rapidamente. Naturalmente sono 
possibili altre modifiche che potrete effettuare da 
soli leggendo il listato del programma. 
Per chi invece preferisse lasciar fare tutto al pro- 
gramma, basterà rispondere alle domande di 
questo. Una qualsiasi risposta non accettabile 
(uno 0 per il punteggio massimo, qualcosa di 
diverso da una “S"” o una “N” quando sono sensa- 
te solo queste risposte) lascerà le cose come so- 
no. Quando avrete risposto a tutte le domande 
comincerà la partita. Ci sono solo due cose che 
val la pena di aggiungere: una riguarda i proietti- 
li, l’altra il modo di riconoscere gli ostacoli. 

Quando mi sono trovato a scrivere la parte di 
programma per il movimento dei proiettili avevo 
due scelte: far muovere i proiettili in modo rettili- 
neo o fare in modo che si potessero guidare con 
le paddle, ogni scelta aveva i suoi vantaggi e non 
volevo fare alcun compromesso. Ho quindi scelto 
questo schema: per sparare il proiettile si pigia il 


pulsante, se poi il pulsante viene rilasciato il 
proiettile va dritto, altrimenti segue la stessa dire- 
zione del carro armato (è così possibile colpire 
l'avversario dietro un ostacolo). 
Per il movimento dei carri non volevo che esistes- 
sero solo zone dove il carro poteva andare senza 
difficoltà e zone dove era assolutamente impossi- 
bile andare, ma anche (come nella realtà) zone 
in cui muoversi fosse possibile, ma difficoltoso. 
Queste zone sono rappresentate nel gioco con 
dei punti sparsi; più fitti sono questi punti, più è 
difficile muoversi. | carri armati possono inoltre 
superare, pur se con difficoltà, le linee continue 
spesse un solo punto (questo è il motivo per cui lo 
schermo deve essere bordato da una linea dop- 
pia). Quando uno dei due giocatori vince, il gio- 
co si ferma finché non viene premuto un tasto, poi 
ricomincia da capo; premendo il tasto “reset” si 
torna al menu principale. 
Credo che questo sia tutto, almeno per quello 
che riguarda l'utilizzo del programma. 
Veniamo ora al programma stesso. Per chi vo- 
lesse leggerselo è stato commentato per esteso 
su richiesta della Redazione (non sono infatti 
solito commentare i miei programmi per mio uso 
personale se non con sintetiche note sulle varia- 
bili utilizzate e sui registri usati). La buona velocità 
nella grafica è giustificata dalle enormi tabelle di 
dati utilizzate dal programma (non le vedete nel 
listato perché vengono generate dal program- 


ma stesso alla partenza). Forse qualcosa si pote- 
va ancora fare sia per la velocità di esecuzione 
sia per l'eleganza del programma stesso (anzi 
per quest'ultima è meglio togliere il forse), ma io 
non sono un fine esteta e della velocità del gioco 
non c'è proprio di che lamentarsi. Forse qualcuno 
si starà ancora domandando perché il gioco si 
chiama “Scorpion”. La risposta è in un vecchio 
catalogo dell'Airfix dei tempi in cui il mio hobby 
non erano i calcolatori ma il modellismo (il cata- 
logo è del ‘75 ilche mi fa sentire improvvisamente 
decrepito, mi consolo pensando che forse questo 
non è l'ultimo catalogo che ho preso), vi si legge 
SCORPION ARMOURED RECONNAISSANCE VEHI- 
CLE. Progettato per sostituire l'auto da perlustra- 
zione Ferret, lo Scorpion è in servizio con l'esercito 
britannico e di questo veicolo di grande mano- 
vrabilità si prevedono forti esportazioni. Prezzi e 
marchi opzionali permettono la costruzione di 
una versione armata con cannone Randen, lo 
Scimitar, particolarmente adatto ad operare in 
alta risoluzione sull'Apple Il (in realtà la descrizio- 
ne non termina esattamente così...). 

N.B. Con la sola eccezione degli sfondi random, 
che vengono generati dalla parte in BASIC del 
programma, tutti gli scenari, nel momento in cui 
si chiede al calcolatore di utilizzarli, devono esse- 
re stati caricati sul dischetto nel formato descritto. 
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Figura 1 - Il listato 
BASIC del programma 
Scorpion. 


APPLE 


HOME : INVERSE : SPEED= 200: VTAB 4: PRINT " 


SCORPION Vi.1 ";: INVERSE : PRINT "-------- 


PRINT " 

20 SPEED= 255: NORMAL : PRINT : PRINT " SCRITTO DA 
CARLO  MAGNAGHI a 

30 PRINT : INVERSE : SPEED= 200: PRINT " 

"5: NORMAL 


40 POKE 34,13 

50 D$ = CHR$ (4): IF PEEK (1010) = 102 AND PEEK (1011) = 
213 THEN GOTO 70 

60 PRINT D$;"BLOAD SCORPION. OBJO" 

70 CALL 1002: POKE 1010,102: POKE 1011,213: CALL - 1169 

B0 REM RICONNETTI IL DOS E MODIFICA IL CICLO DI RESET 

90 VTAB 15: HTAB 1: INPUT "PUNTEGGIO MASSIMO ? "s3A$: IF VAL 
(A$) = O THEN GOTO 130 

100 A = VAL (A$): IF A > 99 THEN A = 99 

110 A = 16 * INT (A / 10) + A — 10 %* INT (A / 10): POKE 
8731,A 

120 REM DECIMAL==>BCD 

130 VTAB 15: HTAB 1: PRINT "SUONO MOVIMENTO CARRI (S/N) ? 


"sz: GET AS 
140 IF A$ = "Y" THEN POKE 8508,48: POKE 9251,48: POKE 92 
75,48 
150 IF A$ = "N" THEN POKE 8508,0: POKE 9251,0: POKE 9275 


O 
. 
160 VTAB 15: HTAB 1: PRINT "SUONO DELLE ESPLOSIONI (S/N) 
? "3: GET A$ 
170 IF A$ = "Y" THEN POKE 9485,48 
180 IF A$ = "N" THEN POKE 9485,0 
190 VTAB 15: HTAB 1: PRINT "IL CARRO DEVE GIRARE DA FERMO 
(S/N) ?"3: GET A$ 
200 IF A$ = "S" THEN POKE 8864,29: POKE 8895,8 
210 IF A$ = "N" THEN POKE 8864,176: POKE 8885, 155 
220 HOME : VTAB 15: PRINT "FACILE O DIFFICILE (F/D) ? ";: 
GET A$ 
230 IF A$ = "F" OR A$ = "D" THEN POKE 8778,99: POKE 8782 
s157: FOR I = O TO 15: READ A: POKE 8958 + I,A: NEXT 
I 
240 IF A$ = "F" THEN POKE 8778,80: POKE 8782,176: FOR I = 
O TO 15: READ A: POKE 8958 + I,A: NEXT I 
250 HOME : VTAB 15: PRINT "1) CITTA” 1";: HTAB 20: PRINT 
"2) CITTA” 2" 
260 PRINT : PRINT "3) LABIRINTO";: HTAB 20: PRINT "4) RAN 
DOM 1" 
270 PRINT : PRINT "5) RANDOM 2" 
280 VTAB 22: HTAB 1: PRINT "FAI LA TUA SCELTA "3: GET A$: 
A = VAL (A$): IF A = 0 0R A > 5 THEN GOTO 280 
290 IF A = 4 ORA = 5 THEN VTAR 22: HTAB 1: PRINT "COMPL 
ESSITA” (0..9) ? "s: GET A$: IF A$ < "O" OR A$ > "9" THEN 
GOTO 290 
300 S = VAL (A$) 
310 VTAB 22: HTAB 1: PRINT "UN ATTIMO DI PAZIENZA, GRAZIE 


= 1 THEN PRINT D&"BLOAD CITTA” 1" 
330 IF A = 2 THEN PRINT D*"BLOAD CITTA’ 2" 
340 IF A = 3 THEN PRINT Dé"ELOAD LABIRINTO" 
350 IF A > = 4 THEN GOTO 390 


299) 


Seguito listato BASIC 


PEEK ( - 16304) + FEEK ( - 16302) + PEEK Scorpion. 
+ PEEL « 


= 16297): CALL B192 


DATA L'i2,i,16;1;32:1,36,1,64,1,16; 1,15 dit 
DATA: 12.0.1090, 10,0,1,0,50, 0,30, 100,10 


POKE 
POKE 


FOR I 


di (+ 
HGR2 


ba 
ROT= 
IF A 
1 AT 
POKE 
83,2 


FOR I 


CALL 


SOURCE FILE: 


001B: 
0010: 
001D: 
O01E: 
001F: 
OOCE: 
0008: 
0007: 
0008: 
0009; 
0019: 
001A: 
0000; 
0001; 
0002: 
0003: 
0004; 
OOZ3O0: 
OO31: 
0032: 
OO33: 
FCAB: 
FB15: 
FF3A: 
0035: 
0036: 
0037: 
0038: 
0039: 
OOZA: 
OO03B: 
0030: 
008D: 
OO03E: 
OO3F: 
0040: 
0041; 
0042: 
0043: 
0044: 
0045: 
0046; 
0005; 
Co6l: 
0034; 
0047; 


232,0: 


POKE 233,3 


768,1: FOKE 770,4: POKE 771,0 

= O TO 20 X S: POKE 772 + I, INT (255 %* RND (1 
ba: NEXT Tr. POKRE 772 + L,0 

: CALL 62450: HCOLOR= 3: HPLOT 0,0 TO 279,0 TO 2 
799.191 TO 0,191 TO: 0,1 TO 279,1 TO 278,190 TO. 1,190 TO 


O: SCALE= 


= 5 THEN 
240,95 
16380, 1: 


20: DRAW 1 AT 240,96 
DRAW 1 AT 239,96: DRAW 1 AT 239,95: DRAW 


POKE 16381,183: POKE 16382,37: POKE 163 


= O TO 8: HPLOT 0,189 - I TO 25,189 - I: HPLOT 
253,2 + I TO 279,2 + I: NEXT 


8192 
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SCORFION Figura 2 - Il listato in 


POINTY linguaggio macchina del 
POINTXL programma Scorpion. 
POINTXH 

DELTAX 

DELTAY 

LENGTH 

REGO 

REGI 

REG2 

REG3 

BASL 

BASH 


3 DOTXL 


DOTXH 

DOTY 

DOTTH 

DOTLIFE 

TANKXL  EQU 

TANKXH  EQU 

TANK y EQU 

FONKTH EQU 

DELAY EQU :s SUBROUTINES 


: PREAD s DEL MONITOR 


BELL EDU 

TANKOXL EQU 5 COORDINATE DEI 
TANK1XL EQU :CARRIARMATI 
TANKOXH EDU s DUE BYTE CIASCUNO 
TANK1XH EQU PER LE COORD. ORIZ. 
TANKOY  EQU sUNO PER LE 

TANK1Y  EQU C00RD. VERTICALI 
TANKOTH EQU «DIREZIONE DEI 321 
TANK1ITH EQU : CARRIARMATI 40 


+ DOTOXL EQU s COORDINATE 567 


DOT1IXL EQU 3DEI PROIETTILI 
DOTOXH EQU 

DOT1XH EQU 

DOTOY EQU 

DOT1Y EQU 

DOTOTH EQU sDIREZIONI DEI 
DOT1TH EQU sPROIETTILI 
DOTOLIFE EQU s TEMPI DI VOLO 
DOTI1LIFE EQU sRESTANTI 
XSAVER  EOU 

BUTTON EQU s INDIRIZZO DEL 


TIMER EOU s PULSANTE O 
XSAVER1 EQU 
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Seguito listato linguag- 
gio macchina Scorpion. 
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0048: 47 PRESSED EQU 
0049: 48 SCOREO EOU 
004A:; 49 SCORE1 EQU 
3000: 50 DATAYL EOU 
3100; 51 DATAYH EQU 
3200: 52 X1BY EOU 
3300: 53 X1IN EQU 
54 X2BY EQU 
55 XZ2IN EQU 
56 ; 
57 
58: 
OBJECT FILE NAME IS 
2000: 59 ORG 
2000: A2 60 LDX 
2002: 86 61 CALCI STX 
2004: 20 62 JSR 
2007: Ab 63 LDX 
2009: AS 654 LDA 
200B: 9D 65 STA 
200E: AS 66 LDA 
2010:9D 67 STA 
2013: E8 68 INX 
2014: E0 69 CPX 
2016: DO 70 BNE 
2018:A9 71 LDA 
201A:85 a STA 
201C:85 73 STA 
201E:20 2 74 JSR 
2021: A6 75 LDX 
2023:9D 3 76 STA 
2026: 98 77 TYA 
2027:9D 78 STA 
202A:E6 #9 INC 
202C: DO 80 BNE 
202E:E6 81 INC 
2030: 20 82 JSR 
2033: Ab BI LDX 
2035: 9D 84 STA 
2038: 98 85 TYA 
2039:9D 3 Bé STA 
203C: E8 87 INX 
203D: B6 88 STX 
203F 3: EO 89 CPX 
2041: DO 90 BNE 
2043: A9 91 LDA 
2045: 85 92 STA 
2047:85 93 STA 
2049:85 94 STA 
204B: 85 95 STA 
204D: 85 96 STA 
204F : 20 I JSR 
2052: A9 98 LDA 
2054: 85 99 STA 
2056: 85 100 STA 
2058: A9 101 LDA 
205A: 85 102 STA 
205C: 85 103 
205E: A9 104 
2060: 85 105 
2062: 85 106 
2064: A9 107 
2066: 85 108 
2068: 20 109 
2068: A9 110 
206D: 85 111 
206F : 85 112 
2071:A9 113 
2073:85 114 
2075:85 115 
2077: A9 116 


$48 
$49 
$4A 
$3000 
$3100 
$3200 
$3300 
$3400 
$3500 


s TAVOLE DI DATI 
sUTILIZZATE PER 
DISEGNARE SULLO 
3 SCHERMO 


SCORFION.OBJO 


$2000 

#0 
POINTY 
YCALC 
POINTY 
BASL 
DATAYL, X 
BASH 
DATAYH, X 


#192 
CALCI 
#0 
POINTXH 
POINTXL 
XCALC 
POINTXL 
X1BY,X 


X1IN,X 
POINTXL 
CALC2 
POINTXH 
XCALC 
POINTXL 
x2BY, X 


IN, X 


POINTXL 
#30 
CALCI 
#0 
DOTOLIFE 
DOTIALIFE 
TIMER 
SCOREO 
SCORE1 
PRTSCOR 
#15 
TANKOXL 
POINTXL 
#0 
TANKOXH 
POINTXH 
#15 
TANKOY 
POINTY 
#0 
TANKOTH 
XDRAW 
#9 
TANK 1 XL 
POINTXL 
#1 È 
TANK 1XH 
POINTXH 
#176 


s COSTRUISCI LE 

3 TAVOLE DEGLI 

s INDIRIZZI DEI 
sPRIMI BYTE DI 
sOGNI RIGA DELLA 
PAGINA GRAFICA 


s COSTRUISCI LE 

3 TAVOLE DEGLI 

s INDIRIZZI DEI 
BYTE RELATIVI 

A CIASCUN FLINTO 
RISPETTO AL 
sFRIMO BYTE DI 
3OGNI RIGA 

3E DELLE MASCHERE 
s NECESSARIE ‘ PER 
OGNI SINGOLO FUNTO 


sPONI LE CONDIZ. 

s INIZIALI 
sPROIETTILI NON 

s IN VOLO 

3AZZERA IL TEMPORIZ. 
3E I PUNTEGGI 
STAMPA I PUNTEGGI 
sPOSIZIONA I 

sCARRI SULLO SCHERMO 
3E ASSEGNA LE 
sPOSIZ. E DIREZ. 


2079:85 
207B: BS 
207D: A9 


207F: 85 


2081: 20 
2084: A2 
2086: BD 
2089: 29 
2088: 15 
208D: 85 
208F : 10 
2091: BS 


2093: DO : 


2095: B4 
2097:94 
2099: B9 
209C:0A 
209D: 0A 
209E:0A 
209F : 85 
20RA1: B9 
20A4:0A 
20A5: 0A 
20A6: 0A 
20A7:85 
20A9: BS 
20AB: 85 
20AD: BS 
20AF : 85 


20B1:BS 


20B3: 85 
20B5: 20 
2088: AS 


20BA:95 3 


20BC: AS 
20BE: 95 
20C0: AS 
2002: 95 
2004: 86 
2006: 20 
2009: A6 
20CB: A9 
20CD: 95 
20CF : BS 
20D1:85 
20D3: BS 
20D5: 85 
20D7: BS 
20D9: 85 
20DB: BS 
20DD: 85 
20DF : BS 
20E1:85 
20E3: 8A 
20E4: 49 
20E6: AA 
20E7: BS 
20E9: 85 
20EB: BS 
20ED: 85 
20EF: BS 
20F1:85 
20F3: BS 
20F5: 85 
20F7:86 
20F9: 20 
20FC: 20 
2OFF: A6 
2101:A5 
2103:95 
2105: A5 


MAINLOF 


LOADDOT 


Seguito listato linguag- 
TANK1Y gio macchina Scorpion. 


TANK1TH 
XDRAW 
#0 3X E” L”’INDICE DEL CARRO 
BUTTON, X 
#$80 3FONI IN PRESSED 
TANKOTH, X 3/P/.../DIREZ/ 
PRESSED 30VE P=1 SE IL PULSANTE 
LOADDOT sE” STATO PREMUTO 
DOTOLIFE,X 
LOADDOT 
TANKOTH, X 3SE IL PULSANTE E’ STATO 
DOTOTH,X sFPREMUTO E IL PROIETTILE 
VX,Y NON E” IN VOLO ASSEGNA 
A sLA SUA POSIZ. INIZIALE 
A 3E LA SUA DIREZIONE 
A 
DELTAX 
VA] 
A 
A 
A 
DELTAY 
TANKOXH, X 
POINTXH 
TANKOXL, X 
POINTXL 
TANKOY, X 
POINTY 
INCXY 
POINTXH 
DOTOXH, X 
POINTXL 
DOTOXL., X 
POINTY 
DOTOY, X 
XSAVER sSALVA L’ INDICE DEL CARRO 
XPLOT 3 DISEGNA IL PROIETTILE 
XSAVER sRIPRENDI L” INDICE 
#11 ASSEGNA TEMPO DI VOLO 
DOTOLIFE,X ;sPER IL PROIETTILE 
DOTOXH,X CARICA I DATI DEL 
POINTXH sPROIETTILE DEL GIOCATORE 
DOTOXL,X sX NEI REGISTRI FER 
POINTXL s IL MOVIMENTO DEL 
DOTOY, X sPROIETTILE GENERICO 
POINTY 
DOTOTH, X 
DOTTH 
DOTOLIFE, X 
DOTLIFE 

s CAMBIA L’ INDICE DEL 
#$01 GIOCATORE: IL CARRO 0 

sE IL PROIETTILE 1 SONO 
TANKOXH, X 3 MOSSI INSIEME 
TANKXH sCARICA IDATI DEL CARRO X 
TANKOXL,X sNEI REGISTRI PER IL 
TANKXL s MOVIMENTO DEL CARRO 
TANKOY,X 3GENERICO 
TANKY 
TANKOTH, X 
TANKTH 
XSAVER 
PREAD 3LEGGI LA PADDLE DEL 
GMOVER 3GIOCATORE X E MUOVI 
XSAVER sIL CARRO E IL PROIETT. 
TANKXH 3E PONI LA NUOVA POSIZ. 
TANKOXH,X sNEI REGISTRI DEL CARRO 
TANKXL Ò 


Seguito listato linguag- 
gio macchina Scorpion. 
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2107:95 
2109: A5 
210B:95 
210D: AS 
210F:95 
2111:8A 
2112:49 
2114:AA 
2115: AS 
2117395 
2119: AS 
211B:95 
211D:A5 
211F:95 
2121:A5 
2123395 
2125; AS 
2127:95 
2129:8A 
212A:49 
212C: AA 
212D:FO 
212F:4C 


2132: A5 


2134: 18 
2135: 69 
2137329 
2139: DO 
213B:8D 


213E:895 3 


2140: 4C 
2143:84 
2145: A5 


2147: DO 


2149:4C 3 


214C:85 
214E:A5 
2150:10 
2152: 29 
2154: 85 
2156: AS 
2158:29 
21SA:FO 
215C:A6 
215E:BD 
2161:85 
2165:20 
2166: A5 
2168: 29 
216A:FO 
216C:C6 
216E:FO 
2170: A4 
2172:B9 
2175:85 
2177:A9 
2179:85 
217B:20 
217E:20 


2181:DO 


2183: A9 
2185: 95 
2187:A4 
2189: B9 
218C:85 
218E:20 
2191:20 
2194: DO 
2196:C6 


2198: DO - 


219A:2 


MAGNO 


LEL1 


GMOVER 


MOVEDOT 


TANKOXL, X 
TANKY 
TANKOY, X 
TANKTH 
TANKOTH, X 


#$01 


DOTXH sE LA NUOVA POSIZ. DEL 
DOTOXH,X  sPROIETTILE NEI REGISTRI 
DOTXL i DELL’ ALTRO GIOCATORE 
DOTOXL, X 

DOTY 

DOTOY, X 

DOTTH 

DOTOTH, X 

DOTLIFE 

DOTOLIFE,X 


#$01 CAMBIA GIOCATORE 


LBL4 

MAINLOF 

TIMER DOPO AVER FATTO UN CICLO 
FER GIOCATORE INCREMENTA 

#1 s IL TIMER MODULO 16 

#$0F 

LBL1 sFAI CLICK 

$£CO30 3OGNI TANTO 

TIMER 

MAINLOP  3E FAI TUTTO DA CAPO 

REG2 SALVA IL VALORE DELLA 

DOTLIFE 3sPADDLE E CONTROLLA SE 

LELS sIL PROIETTILE E” IN 

MOVETANK 3VOLO 

REG3 SE E" IN VOLO CONTROLLA 

PRESSED 3SE IL PULSANTE E” PREMUTO 

LELO s INOLTRE PONI REG3:=DOTLIFE 

#$0F 3 SE IL PULSANTE E” PREMUTO 

DOTTH 3ALLINEA IL PROIETTILE 

DOTTH 3COL CARRO INOLTRE SE DEVI 

#$01 MUOVERE IL PROIETTILE 

LBL7 3 IN DIAGONALE MODIFICA 

REG3 3REG3 PER CORREGGERE LA 

DIAGDOT, X 3 MAGGIOR LUNGHEZZA DEI 

REG3 MOVIMENTI DIAGONALI 

XPLOT 3 CANCELLA IL'VECCHIO PUNTO 

TIMER 

#$01 

MOVEDOT 

DOTLIFE 

ENDLIFE 

DOTTH sMUOVI IL PROIETTILE 

VX,Y sPRIMA ORIZZONTALMENTE 

DELTAX 

#0 

DELTAY 

INCXY 

SCRNBIT GUARDA SE HAI COLPITO 

HIT 3 QUALCOSA, SE SI VEDI COSA 

#0 3 SE NO MUOVI VERTICALMENTE 

DELTAX 

DOTTH 

VY,Y 

DELTAY 

INCXY 

SCRNBIT GUARDA SE HAI COLPITO 

HIT 3 QUALCOSA, SE SI VEDI COSA 

REG3 3SE NO SE HAI FINITO 

MOVEDOT 3 DISEGNA IL PROIETTILE 

XPLOT NELLA NUOVA FOSIZIONE 


219D: A5 
219F:85 
21A1:A5 
Z21IA3:85 
ZIAS: AS 


21A7:85 


21A9:4C È 


ZIAC: AS 
21AE: 895 
21BO: AS 
21B2:85 
21B4: A5 
21B6: 85 
21B8: AS 
21BA:85 
21BC:A5 
21BE:85 
21C0: AS 
21C2:95 
2104: A5 
21C6:20 
21C9: A5 
21CB:95 
21CD: AS 
21CF:85 
21D1: AS 
21D3:895 
21D5: 20 
21D8: DO 
21DA: 20 
21DD: Aé 
21DF : DO 
21E1:A9 
21E3:85 
21E5:A9 
21E7:85 
21E9:A9 
21EB:85 
21ED:A9S 
21EF:85 
21F1:4C 
21F4:A9 
21F6:85 
21F8:A9 
21FA:85 
21FC:A9 
21FE:85 
2200: A9 
2202: 85 
2204: 20 
2207: AS 
2209:49 
220B: AA 
220C: BS 
220E:F8 
220F ;: 18 
2210: 69 
2212:D8 
2213:95 
2215: 48 
2216: 20 
2219:68 
221A:C9 
221C:DO 
221E:4C 


2221:A5 


2223: 85 
2225: AS 
2227385 
2229: AS 
2228: 85 


1D 
01 


30 


32 


hi 


24 


25 


259 ENDLIFE LDA 


260 
261 

262 
263 
264 
265 
266 
267 
268 
269 
270 
271 

LI 
273 
274 
275 
276 
277 
278 
279 
280 
281 

282 
283 
284 
285 
286 
287 
288 
289 
290 
291 

292 
295 
294 
295 
296 
297 
298 
299 
ZOO 
3Ol 

302 
303 
304 
305 
306 
307 
308 
309 
ZIO 
Sii 

S1z 
313 
314 
3515 
316 
317 
318 
319 
320 
321 


"n 
322 


323 
324 
325 
32 

327 
328 
329 


HIT 


TNK1RST 


ENDRST 


NOTHIT 


STA 
LDA 
STA 
LDA 
STA 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
BNE 
JSR 
LDX 
BNE 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JSR 
LDA 
EOR 
TAX 
LDA 
SED 
CLC 
ADC 
CLD 
STA 
PHA 
JSR 
PLA 
CMP 
BNE 
JMP 
LDA 
STA 
LDA 
STA 
LDA 
STA 


Seguito listato linguag- 
gio macchina Scorpion. 


POINTXH sE METTI LA NUOVA POSIZIONE 
DOTXH sNEI REGISTRI OPFORTUNI 
POINTXL 

DOT XL 

POINTY 

DOTY 

MOVETANK sE PROCEDI A MUOVERE IL CARRO 
FOINTXH sSE IL PROIETTILE HA 
DOTXH sCOLFITO QUALCOSA SALVA 
POINTXL sLA SUA POSIZIONE 

DOTXL. 

POINTY 

DOTY 

TANKXH s CANCELLA IL CARRO AVVERSARIO 
POINTXH 

TANKXL 

POINTXL 

TANKY 

POINTY 

TANETH 

XDRAW 

DOTXH 

FOINTXH 

DOTXL. 

FOINTXL 

DOTY 

POINTY 

SCRNBIT sCIO” CHE HAI URTATO E” 
NOTHIT ANCORA LI ? 

EXFLODE :SE NON LO E” ALLORA ERA 
XSAVER s IL CARRO AVVERSARIO. FAI 
TNK1RST sUNA ESPLOSIONE E RIMETTI 
#15 3IL CARRO NELLA POSIZIONE 
TANKXL sDI PARTENZA 

#0 

TANKXH 

#15 

TANKY 

#0 

TANKTH 

ENDRST 

#9 

TANKXL 

#1 

TANKXH 

#176 

TANKY 

ini 

TANKTH 

EXFLODE a CONCLUDI L'ESPLOSIONE E 
XSAVER a MODIFICA IL PUNTEGGIO 
#$01 


SCOREO, X 


#1 
SCOREO, X 


PRTSCOR STAMPA IL PUNTEGGIO E 
:SE UN CARRO E” ARRIVATO A 


#$15 315 CONCLUDI IL GIOCO 
NOTHIT 

ENDGAME 

TANKXH 35€ INVECE NON ERA IL 
POINTXH 3 CARRO AVVERSARIO RIMETTI 
TANKXL s TUTTO A POSTO E CONTINUA 
POINTXL 


TANKY 
POINTY 
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Seguito listato linguag- 
gio macchina Scorpion. 


222F 320 
2232: A9 
2234:85 
2236: AS 
2238: 85 
223A: AS 
2230: 85 


2240: 85 
2242: AS 
2244: 20 
2247: A4 
2249: C0 
224B:90 
224D:C0 
224F : BO 
2251:A5 
2253: 29 


2257: 39 
225A: DO 
225C: AS 


225E:85 


2262: 85 
2264: AS 
2266: 85 
2268: Ab 
226A:20 
226D: DO 
226F: AS 
2271385 
22733 A5 
2275:85 


2279:85 
227B:A6 
227D: BD 
2280: 85 
2282: BD 
2285: 85 
2287:20 
22BA: AS 
228C: 85 
228E: AS 
2290:85 
2292: AS 
2294: 85 
2296:4C 
2299: 98 
229A: A4 
229C: D9 
229F: BO 
22A1:E6 
22A3: A9 
22A5: 25 
22A7:85 
2249: 4C 
22AC: 98 
22AD: 49 
22AF : A4 
22B1:D9 
22B4:; BO 
22B6:C6 
22B8: A9 
22BA: 25 
22BC:85 


22C0; 85 
2202: A5 


222D: AS 


223E:A5 3 


2255: A4 


2260:A5 3 


2277:A5 3 


22BE: AS 


LS] 
dA 


N 
N 


24 


da 


22 


AA CA GG 


SUR.s.ANE-O 


PIA A A GA 


MOVETANK LDA 


TUF.NMOVE LDA 


ROTLFT 


ROTRGH 


ENDMOVE 


JSR 
LDA 
STA 


STA 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
LDY 
CPY 
BCC 
CPY 
BCS 


AND 
LDY 
AND 
BENE 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDX 

JSR 
BNE 
LDA 

STA 
LDA 
STA 
LDA 
STA 
LDX 

LDA 
STA 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
JMP 
TYA 
LDY 
CMP 
BCS 
INC 
LDA 
AND 
STA 
JMP 
TYA 
EOR 
LDY 
CMP 
BCS 
DEC 
LDA 
AND 
STA 
LDA 
STA 


TANKTH 
XDRAW 
#0 
DOTLIFE 
TANKXL 
POINTXL 
TANKXH 
POINTXH 
TANKY 
FPOINTY 
TANKTH 
XDRAW 
REG2 
#$63 
ROTLFT 
#$9D 
ROTRGH 
TANKTH 
#$01 
TIMER 
DIAGTNK, Y 
ENDMOVE 
TANKXL 
POINTXL 
TANKXH 
POINTXH 
TANKY 


POINTY 
TANKTH 
FREEWAY 
ENDMOVE 
TANKXL 
POINTXL 
TANKXH 
POINTXH 
TANKY 
POINTY 
TANKTH 
VX,X 
DELTAX 
VY,X 
DELTAY 
INCXY 
POINTXL 
TANKXL 
POINTXH 
TANKXH 
POINTY 
TANKY 
ENDMOVE 


TIMER 
SLODOWN, Y 
TURNMOVE 
TANKTH 
#$7 
TANKTH 
TANKTH 
ENDMOVE 


#$FF 
TIMER 
SLODOWN, Y 
TURNMOVE 
TANKTH 
#$7 
TANKTH 
TANKTH 
TANKXL 
POINTXL 
TANKXH 


3FER PRIMA COSA 
s CANCELLA IL CARRO 
3 DALLA VECCHIA POSIZIONE 


35E IL PADDLE E’ SPOSTATO 
3A DESTRA O A SINISTRA 
SALTA AGLI AFPOSITI 
sFEZZI DI PROGRAMMA 

3SE NO VAI DRITTO 


sCORREGGI PER LA MAGGIOR 

s VELOCITA” SULLE DIAGONALI 
3 SALTANDO UNA MOSSA DI 

3 TANTO IN TANTO 


:GUARDA SE CI SONO 
3OSTACOLI, SE NO MUOVI 


3RUOTA IL CARRO IN SENSO 
3ANTIORARIO A VELOCITA” 

s DIPENDENTE DALLA POSIZIONE 
3 DEL PADDLE 


3ANALOGAMENTE PER IL 
3SENSO ORARIO 


DISEGNA IL CARRO NELLA 
NUOVA POSIZIONE 


screspenannnnenSsA PP) E 


Seguito listato linguag- 


2 : NTXH ; : È 
204: 85 POINTX gio macchina Scorpion. 


22C6:AS : TANKY 
22C8: 85 POINTY 

22CA:A5 3I TANKTH 

22CC: 20 XDRAW 

42CF 3.60 

22D0: 01 o $1,$1,$0, $FF, $FF, $FF,$0,$1 

22D3:FF 

22D6: 00 

22D8: 00 $0, $FF, $FF, $FF,$0,$1,$1,$1 

22DB: FF 

22DE: 01 

22E0:00 DIAGTNK 0,1,0,0,1,0,0,t,0,d,1,0;0,1,0;0 
22E3:00 ° 

22E6:00 

22E9:00 

22EC:00 

22EF:00 

22F0:00 DIAGDOT O, i.1,23, 3a bg 7,0, 0 

22F3:02 

22F 6:04 

22F9:06 

22FC:09 

22FE:70 SLODOWN $70,$01,$10,$01,$20,$01,$10, $01 
2301:01 

2304:10 

2306:40 0 0 $40, $01,$10, $01, $20, $01,$10, $01 
2309:01 

2300310 

230E: AA 3 QUESTA SUBROUTINE DISEGNA 
230F : BC DX, X 3E CANCELLA UN CARRO SULLO 
2312:94 DELTAX 3 SCHERMO NELLA POSIZIONE 
2314: BC DY, X s INDICATA DA TANKXL, TANKXH 
2317:84 DELTAY 3E TANKY E NELLA DIREZIONE 
2319:4A A s INDICATA DA TANKTH 

231A: BO XDRAW2 

231C:A9 #$2 3SE LA DIREZIONE E” PARI 
231E:20 ; LINE s IL CARRO VIENE DISEGNATO 
2321:A9 #$4 s DAL CODICE CHE SEGUE: 
2323320 3 LINE 3SE NO VIENE DISEGNATO DAL 
2326: A9 #34 3 CODICE SEGUENTE XDRAW2. 
2328: 20 3 LINE sIN ENTRAMBI I CASI IL 
232B: A9 #$4 3 CARRO VIENE DISEGNATO 
232D3 20 3 LINE 3 SEGUENDO IL TRACCIATO IN 
2330: A9 #%2 3 FIGURA 

2332: 20 LINE 
2335: A9 #$0 
2337:38 

2338: ES DELTAX 
233A: 85 53 DELTAX 
2330: A9 #$0 
233E:38 

233F:E5 DELTAY 
2341:85 DELTAY 
2343: A9 #$5 
2345:85 LENGTH 
2347:20 XLINE 
234A:20 INCXY 
234D:A9 #$1 
234F:20 LINE 
2352: A9 #$4 
2354: 20 LINE 
2357:A9 #$E 
2359: 20 LINE 
235C: A9 #$8 
235E:20 LINE 
2361:A9 #$E 
2363: 20 LINE 
2366: A9 #$3 


2368: 20 LINE 
236B: 60 
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Pa 
a 


a 


FIERI + 


CERCRCOGLELE,A 


PARERI, 


Seguito listato linguag- 
gio macchina Scorpion. 
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2360: A9 
236E:20 
2371:A9 
2373: 20 
2376: A9 
2378:20 
237B:A9 
237D: 20 
2380: A9 
23892: 2 

2385: A9 
2387: 38 
2388: ES 
23BA: 85 
238C: A9 
238E: 38 
238F: ES 
2391:85 
2393: A9 
2395: 85 
2397: 20 
239A: 20 
239D:A9 
239F 3 20 
23A2:A9 
23A4: 20 
22A7:A9 
23A9: 20 
23AC:A9 
23AE: 20 
23B1:A9 
23B3: 20 
23B6:A9 
2388: 20 
23BB: 60 
23BC: 00 
23BF 3FF 
2302: 01 
23C4:FF 
23C7301 
23CA:00 
23CC:85 
23CE: 20 
23D1:A6 
23D3: 38 
23D4: A9 
23D6: E5 
23D8: 85 
23DA: 86 
23DC:60 
23DD: 20 
23E0:20 
23E3:C6 
23E5: DO 
23E7:60 
23E8:h6 
23EA: BD 
23ED:85 
23EF : BD 
23F2:85 
23F4: A6 
23F6: AS 
23F8: DO 
23FA: BD 
23FD: BC 
2400: 4C 
2403: BD 
2406: BC 
2409:51 
240B:91 
240D: 60 
240E:86 


455 XDRAW2 


456 
457 
458 
459 
460 
461 

462 
463 
464 
465 
466 
467 
468 
469 
470 
471 

472 
473 
474 
475 
476 
477 
478 
479 
480 
481 

482 
483 
484 
485 
496 
487 
488 
489 
490 


492 
493 
494 
495 
496 
497 
498 
499 
500 
501 

502 
503 
504 
505 
506 
507 
508 
509 
510 
Sii 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 


XLBLO 


XLBL1 


JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
RTS 
DFB 


DFB 


STA 
JSR 
LDX 
SEC 
LDA 
SBC 
STA 
STX 
RTS 
JSR 
JISR 
DEC 
BNE 
RTS 
LDX 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
BNE 
LDA 
LDY 
JMP 
LDA 
LDY 
EOR 
STA 
RTS 


522 FREEWAY STX 


#$1 
LINE 
#63 
LINE 
#$2 
LINE 
#$3 
LINE 
#$1 
LINE 
#$0 


DELTAX 
DELTAX 
#60 


DELTAY 
DELTAY 
#51 
LENGTH 
XLINE 
INCXY 
#$1 
LINE 
#$I 
LINE 
#$A 
LINE 
#$6 
LINE 
#$A 
LINE 
#$2 
LINE 


$0, $FF, $FF, $FF,$0,$1,$1,$1 


$FF,$FF,$0,$1,$1,$1,$0, $FF 


LENGTH 
XLINE 
DELTAY 


#$00 

DELTAX 
DELTAY 
DELTAX 


INCXY 
XPLOT 
LENGTH 
XLINE 


POINTY 
DATAYL, X 
BASL 
DATAYH, X 
BASH 
POINTXL 
POINTXH 
XLBLO 
X1BY, X 
X1IN,X 
XLBL1 
X2BY,X 
XZIN, X 
(BASL) , Y 
(BASL) , Y 


REGI 


s CHIAMA LA SUBROUTINE XLINE 
3E GIRA DI 90 GRADI IN 
SENSO ANTIORARIO 


s INVERTE UNA LINEA SULLO 
SCHERMO ECCETTO IL PRIMO 
sPUNTO A PARTIRE DA POINTXH, 
sPOINTXL, POINTY NELLA 

s DIREZIONE INDICATA DA 

s DELTAX, DELTAY 

3XPLOT ESEGUE LA NEGAZIONE 

3 SULLO SCHERMO DEL PUNTO 

s INDICATO DA POINTXL, 
sPOINTXH E POINTY 


CONTROLLA SE IL CARRO 


2410: BD 
2413:85 
2415: ED 
2418:85 
241A:20 
241D: 20 
2420:FO 


2422:8D 3 


2425:60 
2426: Ab 
2428: BD 
242B: BS 
242D: ED 
2430: 85 
2432: 20 
2435: 20 
2438: FO 
243A: 8D 
243D:60 
243E:08 
2441:F7 
2444: FC 
2446:FC 
2449:FD 
244C:08 
244E:00 
2451:06 
2454:08 
2456: 08 
2459:FA 
245C:00 
245E:A6 
2460: BD 
2463: 85 
2465: BD 
2468: 85 
246A: AH 
246C: AS 
2466: DO 
2470: BD 
2473: BC 
2476:4C 
2479: BD 
247C: BC 
247F:31 
2481:60 
2482: AS 
2484: 29 
2486:4A 
2487: 85 
2489:4A 
248A:4A 
248B:05 
248D: 85 
248F: AS 
2491:29 
2493: 69 
2495:29 
2497:05 
2499:85 
249B: AS 
249D:29 
249F : 0A 
24A0: 0A 
24A1:85 
24A3: AS 
2445: 29 
24A7:4A 
24A8:4A 
2449:4A 


24AA:4A 


24AB: 05 


AGAN dd 
CUABGUN 


Seguito listato linguag- 


) 5 s ; : - 
DY1,X STA URTANDO QUALCOSA gio macchina Scorpion. 


DELTAY s RICHIEDE LA POSIZIONE 

DX1,X DEL CARRO IN FOINTXL, 

DELTAX sPOINTXH E POINTY 

INCXY sE LA SUA DIREZIONE NEL 

SCRNEIT sREGISTRO X 

FREE1 

$COTO :SE AL RITORNO DALLA 
sSUBROUTINE IL FLAG EQUAL 

REGI sE” RESETTATO QUALCOSA 

DY2,X 3E° STATO URTATO 

DELTAY 

DX2,X 

DELTAX 

INCXY 

SCRNEIT 

FREE2 

$C030 


$8, $9, $FC, $F7, $F8,$F7,$FC, $9 
$FC,&FD, %$F8, $FD, $FC, $3, 69, 63 
$0, £FA, £8, £6, #0, $6, $8, $FA 
$8, $FA, $0, $FA, $8, $6, $0, $6 


POINTY CONTROLLA SE IL PIXEL 
DATAYL,X 3 INDICATO DA FPOINTXL 
BASL sPOINTXH E POINTY E” 
DATAYH,X  3ACCESO, SE LO E° AL 
BASH RITORNO IL FLAG EQUAL 
POINTXL sE” RESETTATO 

POINTXH 

SLBLO 

X1BY,X 

XIIN.X 

SLBL 1 

X2BY, X 

X2IN,X 

(BASL) , Y 


POINTY «CALCOLA GLI INDIRIZZI 
#$C0 a BASE DELLE RIGHE 

A sRICHIESTI FER LA GRAFICA 
REGO 

A sMETTE IL RISULTATO IN 
À sBASL E BASH 

REGO 

REGO 

POINTY 

#$08 

#$78 

#$80 

REGO 

BASL 

POINTY 

#$07 

A 

À 

REGO 

POINTY 

#$30 
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APP| Erenaznaenesenanoa 


Seguito listato linguag- 24AD: 69 

gio macchina Scorpion. 24AF : 85 BASH 
24B1:60 
2482: A5 ì POINTXL CALCOLA LA DISTANZA DEL 
2484: A6 POINTXH ;BYTE CONTENENTE UN DATO 
24B6: AO #$FF s PUNTO DALLA SINISTRA 
24B8: 38 3 a DELLO SCHERMO E LA 
2489: C8 COUNT7 sMETTE NEL REGISTRO Y 
24BA: E9 #$07 sE IL CONTENUTO DEL 
24BC: BO COUNT7 «BYTE NECESSARIO FER 
24BE: CA DISEGNARE IL PUNTO 
24BF : 38 3E LO METTE NELLO 
24C0:10 COUNT7 s ACCUMULATORE, IN PRATICA 
2402: 69 ì #$06 3SE XC E” LA ASCISSA 
24C4: AA 0 s DEL PUNTO SI HA: 
24C5: BD i MASK, X $A:=2%(XC MOD 7) 
24C8:60 3 sY:=X DIV 7 
2409: 01 - $01,$02,$04, $08, $10, $20, $40 
24CC: 08 
24CF:40 
24D0: 18 s INCREMENTA POINTY, 
24D1:A5 POINTY sPOINTXL,FOINTXH DEI 
24D3: 65 B DELTAY s VALORI CONTENUTI IN 
24D5: 85 FOINTY sDELTAX E DELTAY 
24D7:18 NON SI TRATTA DI UNA 
24D8: AS DELTAX s SEMPLICE ADDIZIONE 
24DA: 30 NEGINC PERCHE” LA COORDINATA 
24DC: 65 POINTXL 3X OCCUPA DUE BYTE 
24DE: 85 POINTXL —3POINTXL E POINTXH 
24E0: A9 #$00 sE DELTAX UNO SOLO 
24E2:65 POINTXH 
24E4:85 POINTXH 
24E6:60 
24E7:65 618 NEGINC POINTXL sPER DELTAX NEGATIVO 
24E9: 85 619 POINTXL 
24EB: AS 620 POINTXH 
24ED: 69 621 #$FF 
24EF:85 622 POINTXH 
24F1:60 623 
24F2:A2 624 EXPLODE #0 sSIMULA UNA ESPLOSIONE 
24F4: A5 625 EXPLOOF DOTXL CARICA IN POINTXL 
24F6:85 626 POINTXL = 3POINTXH E FOINTY LA 
24F8:A5 627 DOTXH sFOSIZIONE DEL PROIETTILE 
24FA:85 628 POINTXH 
24FC:A5 629 DOTY 
24FE:85 630 POINTY 
2500: BD 3 631 EXINCX,X 3CARICA DALLE TAVOLE 
2503: 85 632 DELTAX sLE FOSIZIONI RELATIVE 
2505; BD 633 EXINCY,X DEI PUNTI DA DISEGNARE 
2508: 85 634 DELTAY sPER SIMULARE L’ESPLOSIONE 
250A: 86 635 XSAVER1i sRISPETTO ALLA POSIZIONE 
250C: AD 636 $CO30 3 DEL PROIETTILE, 
250F : 20 637 INCXY sGENERA UN SUONO GRIGIO, 
2512:A5 638 POINTY s CALCOLA. LA POSIZIONE 
2514:C9 639 #192 sDEI PUNTI E SE SONO FUORI 
2516: BO 640 NOPLOT 3 DALLO SCHERMO NON LI 
2518: AS 641 POINTXH DISEGNA 
251A:FO 542 PLOT 
251C: AS 643 POINTXL 
251E:C9 644 #24 
2520: BO 645 NOPLOT 
2522: 20 646 PLOT XPLOT 
2525: 09 647 NOPLOT #$01 s GENERA UN RITARDO 
2527329 648 #$7F sFSEUDOCASUALE FER IL 
2529:20 649 DELAY i RUMORE 
252C: Ab 650 XSAVERI1 
252E: E8 651 
252F: EO 652 #40 3 CONTROLLA SE HAI STAMPATO 
2531: DO 653 EXPLOOFP sTUTTI I PUNTI 
2533: 60 654 
2534: 01 655 EXINCX 
2537: 02 
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253D: 02 


2544: 05 


2547:FA: 


2548:F9 
2548: 04 
254E:F7 
23513FE 
2552: 02 
2555: 09 
2558: 05 
255B:FB 
255C:01 
255F FF 
2562: 00 
2565:FD 
2566: FC 
2569: 05 
256C:FR 
256F3:FF 
2570: 02 
2573307 
2576:FF 
2579:0A 
257A:09 
257D:03 
2580: F9 
2583: F9 
2584: AS 
25B6: AC 
2589: AE 
258C: 20 
258F : AS 
2591: AC 
2594; AE 
2597:20 
259A:60 
259B: 85 
259D: 86 
259F:4A 
25A0:4A 
25A1:4A 
25A2:4A 
25A3: 20 
25A6: C8 
25A7: A6 
25A9: AS 
25AB: 29 
25AD: 20 
25B0: 60 
25B1:86 
25B3: 0A 
25B4: 0A 
25B5: 0A 
25B6: AA 
25B7:20 
25BA: BD 
2S5BD: 49 
25BF: 91 
25C1:E8 
25C2:E6 
25C4: BA 
2505: 29 
25C7: DO 
25C9:60 
25CA: 1F 
25CD: 15 
25DO: 1F 
25D2: 07 
25D5: 04 


EXINCY 


FRTSCOR 


NUMOUT 


NUMOUT1 


NEXTLIN 


NUMPIC 


Seguito listato linguag- 
gio macchina Scorpion. 


0, 253, 252, 1,5, 6,5923252, 250 


249, 252, 254,4,253, 249, 247,247, 250, 254 


2,6,7,9,8,8,5, 2,255, 251 


1,254,1,255, 255,3,0, 3, 254, 253 


252, 254,2,5,3,0, 251, 250, 252, 255 


2,5,7,7,250, 252, 255,4,7,10 


9,5,8,3,254, 251, 249, 247, 248, 249 


SCOREO 3 STAMPA DUE NUMERI 
$3FFC 3A PARTIRE DALLE POSIZIONI 
$3FFD s INDICATE COME SEGUE: 
NUMOUT 3 XO->$3FFC 
SCORE 1 i YO->$3FFD 
$3FFE 3X1->$3FFE 
$3FFF 3Y1->$3FFF 
NUMOUT STAMPA L’ACCUMULATORE 
3 COME UN NUMERO DECIMALE 
REGI sDI DUE CIFRE, PRIMA LA 
XSAVER1 CIFRA FIU” SIGNIFICATIVA 
A 
A 
A 
A 
NUMOUTI POI ALLA SUA DESTRA 
s QUELLA MENO 
XSAVER1 3SIGNIFICATIVA 
REGI 
#$0F 
NUMOUT1 


POINTY s FRENDI IL NUMERO E 
A s MOLTIPLICALO PER 8 
Hi sPER OTTENERE L’INDIRIZZO 
A sDEL PRIMO BYTE DEL 
3CARATTERE DA STAMPARE 

YCALC sRELATIVAMENTE A NUMPIC 
NUMPIC,X METTI IL BYTE SULLO 
#$FF sSCHERMO E PASSA 
(BASL),Y 3AL BYTE SOTTOSTANTE 

j sFINCHE” NON NE HAI 
POINTY 3 STAMPATI 7 


#%7 
NEXTLIN 


$1F,$11,$19,$15,$13,$13,$1F,$00 


$07,$04,$04, $04, $04, $04, $1F, $00 |©| 
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Seguito listato linguag- 
gio macchina Scorpion. 
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APPLE 


25D8: 1F 00 
25DA:3F 20 20 702 DFB $3F,$20, $20, $3F, $03, $03, $3F,$00 
25DD: 3F 03 03 
25E0: 3F 00 
25E2: 1E 10 10 703 DFB $1E,$10,$10,$1E,$18,$18,$1F,$00 
2565: 1E 18 18 
25E8: 1F 00 
2ZSEA1 LL 11 11 704 DFB $11,$11,$11,$11,$3F,$18,$18,$00 
25ED: 11 3F 18 
25F0: 18 00 
25F2:1F 01 01 705 DFR $1F,$01,$01,$1F,$18,$19,$1F,$00 
25F5: 1F 18 19 
25F8:1F 00 
25FA: 1F 11 01 706 DFB $1F,$11,$01,$1F,$13,$13,$1F,$00 
25FD: 1F 13 13 
2600; 1F 00 
2602: 1F 11 08 707 DFB %$1F,$11,$08,$04, $06, $06, $06, $00 
2605:04 06 06 
2608:06 00 
260A: 1F 11 11 708 DFB $1F,$11,$11,%1F,$13,$13,$1F,$00 
260D: 1F 13 13 
2610: 1F 00 
2612: 1F 11 11 709 DFB $1F,$11,$11,$1F,$18,$19,$1F,$00 
2615: 1F 18 19 
2618: 1F 00 
261A:AD 10 CO 710 ENDGAME LDA $C010 3ASPETTA UN CARATTERE 
261D:AD 00 CO 711 LBL2 LDA  *$C000 DALLA TASTIERA, POI 
2620: 10 FB 712 BPL LBL2 s CANCELLA IL CARRO 
2622:A5 05 713 LDA XSAVER a VINCENTE E IL PROIETTILE 
2624:49 01 714 EOR #$01 3AVVERSARIO SE E” 
2626: AA 715 TAX 3ANCORA IN VOLO 
26027355 S5 716 LDA @TANKOXL,X 
2629:85 1C Z47 STA POINTXL 
262B:B5 37 718 LDA  TANKOXH,X 
262D:85 1D 719 STA POINTXH 
262F:B5 39 720 LDA TANKOY, X 
2631:85 1iR 721 STA POINTY 
2633:BS 3B PES, LDA TANKOTH,X 
2635:20 OE 23 723 JSR  XDRAW 
2638: A6 05 724 LDX XSAVER 
ZOZA:BS 45 725 LDA DOTOLIFE,X 
263C:FO OF 726 BEO END 
263E: BS 3F 727 LDA DOTOXH,X 
2640:85 1D 728 STA POINTXH 
2642: BS 3D 729 LDA DOTOXL,X 
2644:85 1C 730 STA POINTXL 
2646: BS 41 731 LDA DOTOY,X 
2648:85 1R 7352 STA POINTY 
264A: 20 EB 23 733 JSR  XFLOT 
264D: 68 734 END PLA 
264E: 68 735 PLA 
264F:4C 00 20 736 JMP_ $2000 
XXX SUCCESSFUL ASSEMBLY: NO ERRORS 
1A BASH 19 BASL PFF3A BELL CO61 BUTTON 
2002 CALCI 201E CALC2 2030 CALCI 24B9 COUNT7 
3100 DATAYH 3000 DATAYL FCA8 DELAY 1E DELTAX 
1F DELTAY 22FO DIAGDOT 22E0 DIAGTNK 45 DOTOLIFE 
43 DOTOTH 3F_DOTOXH 3D DOTOXL 41 DOTOY 
46 DOTI1LIFE 2. 44 DOTITH ? 40 DOTiXH P? 3E DOT1XL 
P 42 DOT1Y 04 DOTLIFE O3 DOTTH O1 DOTXH 
00 DOTXL 02 DOTY 243E DX1 244E DX2 
23BC DX 2446 DY1 23C4 DY 2456 DY2 
261A ENDGAME 22BE ENDMOVE 264D END 219D ENDLIFE 
2204 ENDRST 2534 EXINCX 255C EXINCY 24F2 EXPLODE 
24F4 EXPLOOFP 2426 FREEI1 243D FREE2 240E FREEWAY 
2143 GMOVER Z1IAC HIT 24DO INCXY 2ZI3SE LBLI1 
261D LBL2 2132 LBL4 214C LBLS 2156 LBL6 
2163 LBL7 CE LENGTH 23CC LINE 20CF LOADDOT 
2086 MAINLOP 24C9 MASK 2170 MOVEDOT 2236 MOVETANK 
24E7 NEGINC 25B7 NEXTLIN 2525 NOPLOT 2221 NOTHIT 
259B NUMOUT 25B1 NUMOUTI1 25CA NUMPIC 2522 PLOT 


POINTXH 
PRESSED 
REG2 
SCOREO 
SLEL1 
35 TANKOXL 
TANK1XL 
TANKXL 
TURNMOVE 
X1IN 
XDRAW2 
XLINE 
YCALC 
DOTXL 
DOTLIFE 
REG2 
POINTY 
DELTAY 
TANKTH 
TANKOXH 
TANKOTH 
DOTOXH 
3 DOTOTH 
XSAVERI1 
LENGTH 
MAINLOP 
GMOVER 
MOVEDOT 
ENDRST 
ROTLET 
VY 
XDRAW 
LINE 
XLBL1 
DX1 
SCRNBIT 
XCALC 
NEGINC 
NOPLOT 
NUMOUT 
ENDGAME 
3100 DATAYH 
3500. XZIN 
PFFIA BELL 


iC 
2584 
09 
4A 
22FE 
39 
3A 


"> 


22D0 
3400 
230E 


23E8 


01 


05 


2002 
20CF 
214C 
219D 


n 
222 


22AC 
22E0 
236C 
23DD 
240E 
2446 
2479 
24B9 
24F2 
253 

25B1 
261D 
3200 


CO6i 


POINTXL 
FRTSCOR 
REGI 
SCORE 1 
SLODOWN 
TANKOY 
TANK1Y 
TANKY 
VX 

X2BY 
XDRAW 
XPLOT 


DOTXH 
XSAVER 
REGI 
POINTXL 
TANK XL 
TIMER 
TANK 1 XH 
TANK1TH 
DOT 1XH 
DOT1TH 
PRESSED 
CALCI 
LOADDOT 
LBLS 
ENDLIFE 
NOTHIT 
ROTRGH 
DIAGTNK 
XDRAW2 
XLINE 
FREEWAY 
DY1 
SLBLO 
COUNT7 
EXPLODE 
EXINCX 
NUMOUTI1 
LBL2 
X1BY 
BUTTON 


POINTY 
REGO 
ROTLFT 
SCRNBIT 
TANKOTH 
TANK1TH 
TANKTH 
TIMER 
VY 

3500 X2IN 

2403 XLBLO 
XSAVER 


DOTY 
REGO 
BASL 
POINTXH 
TANKXH 
TANKOXL 
TANKOY 
DOTOXL 
DOTOY 
DOTOLIFE 
SCOREO 
CALC2 
LBL4 
LBL6 
HIT 
MOVETANK 
ENDMOVE 
DIAGDOT 
DX 
XPLOT 
FREE1 
DX2 
SLBL1 
MASK 

E XPLOOFP 
EXINCY 
NEXTLIN 
END 
X1IN 
PREAD 


ERRATA CORRIGE 


3200 
24B2 
2409 

47 


03 
07 
IA 
1E 
32 
36 
3A 
3E 
42 
46 
4A 
2030 
213E 
2163 
21F4 
2251 
22D0 
22FE 
23C4 
2403 
243D 
2456 
2482 
24D0 
2522 
2584 
25CA 
3000 
3400 
FCAB 


REGI 
ROTRGH 
SLBLO 
TANKOXH 
TANK 1XH 
TANKXH 
TNK1RST 
X1BY 
XCALC 
XLBL1i 
XSAVERI1 


DOTTH 
REGI 
BASH 
DELTAX 
TANKY 
TANK1XL 
TANK1Y 
DOT1XL 
DOT1Y 
DOTI1ILIFE 
SCORE i 
CALCI 
LBL1 
LBL7 
TNK1RST 
TURNMOVE 
VvX 
SLODOWN 
DY 
XLBLO 
FREE2 
DY2 
YCALC 
INCXY 
PLOT 
PRTSCOR 
NUMPIC 
DATAYL 
X2BY 
DELAY 


Seguito listato linguag- 
gio macchina Scorpion. 


(O) 


L'eccezionale programma Simulavolo per Spectrum pubblicato sul numero scorso ha subito un taglio di cui 
preghiamo di prendere nota, scusandoci con tutti i lettori, numerosissimi, che ci hanno anche telefonato in 


Redazione. 
. LET sf=.,05: LET kn 1552 DATA "EDN",4.,9,8.,4, "UUB",-. 
sasRo E et "sirNDIP: LET uacANDAP 1 Ron "sable +64 dì, LAS 47 
ARCTICA] + (BND #96 pri (ESE PRE MIZII 2 KK" 7-28. 
ui în NE(?;9I Lo 3 t_TO 7 sé uS°sì è 1480163 SUB s (18): 
‘ ) 
isa BIN stadi: ‘For 4 TO 26: L 187 x RI AT d}4,88;, ENVERSE t; 
ET 3 (Al =340; NEXT 3: 18) =} nè dp IFNOT Ft HÉ a BETUR 
Seo: LET a tpissa0: LET ) =30@ 1350 ESTORE ia%0: FOR qst TO b: 
e: (t)m430: LET s 60: L AD x: NEXT q: PRINT AT ebbi 
ET (ad) ng “ALT ";AT 22,0; FLASH t;x$:_INP 
53ò Ts A 50: L 7) 2469 au‘ei c Paznoare? ;X$: IF xS= 
3° Cet (1 +0. 83 "SERMEN È rtat: cmo: PLOT 
1548 FOR as0 TO ded: NT AT 43 OVER tixd.dit: ° AU OVER ti t:2n0 
33 'eafio. peu dsegi olbAlediot* GEvf: GORE SIABE ire i 
SRAÙ i OR qui ite t PRIN ipo Gui" SAÉN LET pasy: GO 
AT 1 +p+t x, °° 
Sela : t,0 è PRINT A +p+t NVERSE t 
;' poso PRINT.,AT slide, SoER È chiubél*: 3 
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Figura 1 - Codice colori 
per resistori. 


Codici colori e resistenze 


Con questo programma non si ha certamente la pretesa di programmare a colori 
con lo ZX81, ma di mettervi finalmente a disposizione un sistema infallibile per 
calcolare i valori dei resistori con i loro codici ed evidenziare inoltre i valori limite 
in ohm di tolleranza. 


di Andrea Vincenzo 


| n figura 1 viene raffigurata la classica tabella 
per l'identificazione di un resistore; il pro- 
gramma che segue non farà altro che chiedervi il 
codice a colori che verrà inserito semplicemente 
con le prime due lettere della parola, per esem- 
pio: rosso = RO; nero = NE; giallo = Gl; ecc. 
Unica possibile ripetizione può essere AR, che può 
voler dire sia arancione che argento; a tale ripeti- 
zione si è ovviato denominando argento con AG. 
Una volta inserite le sigle dei colori, questi ver- 
ranno sistemati sotto le “fascette” in grigio scuro 
del resistore che lo ZX81 disegnerà sullo schermo 
(figura 2): seguirà una breve pausa, quindi sotto 
al disegno comparirà il valore in ohm e i valori 
Minimi e massimi di tolleranza (figura 3). 


Lo ZX81 vi chiederà se volete continuare e sarà 
così pronto per un altro valore. 

Il listato del programma è rappresentato in figura 
4; nelle righe 70, 80, 90: viene disegnata una resi- 
stenza, vengono dimensionate le variabili a strin- 
ga ed assegnate le sigle dei colori alla variabile 
A$; a questo punto segue la “sistemazione” delle 
sigle sotto il disegno, in corrispondenza delle fa- 
scette scure; infine vengono calcolati il valore e le 
tolleranze minima e massima. 

Sarà da tenere presente che colori differenti da 
quelli identificabili daranno valore finale 0e che i 
colori in posizione errata non verranno accettati e 
quindi richiesti dal computer. te) 


[4 | euuo 
| vi VERDE veRDE | sw 0RO 


e | au 
a] se |a T_T] 
[+ | eso | eso |__| | 
[» | senco — 


INTRODURRE I 4 COLORI LETTI DA 
S5N.=>} A DS. N.B. ARGENTO=AG 


Figura 2 - Il disegno del 
resistore sul video. 


GI VI RO OR 


4700 OHM 


TOLLERANZA +/-_5 PERCENTO 
VALORI TRA 4465 OHM 
E 4935 OHM 


DI VUOI CONTINUARE? SZN 
IO) 
Ù 


Figura 3 - Calcolo del valore in ohm con le tolleranze. 
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* * 
* CODICI COLORI PER + 
REM * RESISTORI * 


Me * 
REM KKKEKLKKKkKK:++3:tktttt%t+t 
se c 


ANAOMH- 
D 
m 
z 


n';T9A8 < Son 

120 Bim acio: 

130 DIM A$(10,2) 

140 DIM B$(2,2) 

150 DIM C$(1,2) 

155 DIM D$(1,2) 

160 DIM Ca) l 

300 LET A$(1) ="MA' 

21@ LET A$(2)="R0" 

222 LET A$(3)="AR" 

239 LET A$(4)="GI" 

240 LET A$(S) ="VE 

250 LET A$(6) ="BL" 

260 LET A$(7) ="VI" 

270 LET A$(8) ="GR" 

280 LET A$(9) ="BI" 

290 LET A$(10) = "NE" 

300 LET A(C10) =@ 

318 FOR Ixi TO 9 

3530 LET ACI) =I 

330 NEXT I 

340 SLOW | 
350 PRINT_AT_ @,0; "INTRODURRE I | 
4 COLORI LETTI DA" | 
855 PRINT "SN.=> A DS. N.8. AI 
RGENTO=AG" 

360 UT B$(1) 

373 nes Beto 

390 IF C$(i)="UI" OR C$(1)="GR" 
OR C$ (3) =“BIv THEN Goré ‘386 

400 INPUT D$(1) 

410 IF Dei) e"Ro» OR D$(1)="OR" 
OR (1) ="AG" THEN GOTÒ 420 

415 GOTO 400 ì 


425 PRINT AT 1,08;", 


438 PRINT AT 9,9;B$( 
B$ (2);AT 9,15;C$(2);A 


il 
432 PAUSE 100 
435 FAST 
449 FOR_I=1 TO 10 

ul B$ (1) =A9$ (I) THEN LET C(1 
= 

469 NEXT_I 

489 FOR_I=1 TO 10 

490 _IF B$(2) =A$ (I) THEN LET C(2 


1); AT_9,12; 
T 9,19;66(1 


)sAC(I) 
500 NEXT I 
ati” LET W$=STR$ (C(1)) +STR$ (CC 
5309 LET G=UVAL U 
549 FOR I=1 TO 
i ca IF C$(1) =A$ (I) THEN GOTO 10 
569 NEXT I 
at” IF C$(1) ="NE" THEN GOTO 116 
sBt® IF C$(1)="OR" THEN LET UWU=G/ 


590 IF C$(1)="AG" THEN LET W=G/ 
PRINT AT 14, 10;U4;" OHM" 
GOTO 2000 
LET X=I 
LET W=(10x%%kX) #G 


PRINT_AT_14,19;U;" OHM" 
GOTO 2000 

LET W=G Ù 
PRINT_AT_14,109;U4;".0 OHM 
GOTO 2000 


REM CALCOLO TOLLERANZA 
IF D$(1) ="AG" THEN GOSUB 


IF D$(1) ="OR" THEN GOSUB 
IF D$(1) ="RO" THEN GOSUB 


LOU 
20979 PRINT "TOLLERANZA +/- ";B;" 
PERCENTO" 


** 
S 
L 
L 
L 
R 
L 
L 
L 
R 
L 
L 
L 
R 


"UALORI TRA " 
PRINT." 


PAUSE 500 

PRINT 

RENT AT 21,9; "VUOI CONT INU 
pivi 

PAUSE 2500 

IF_INKEY$="5S" THEN RUN 


CL 
PRINT AT 8,4; "#k# ARRIVEDER 


programma. 


[sn 


C 


(U-(.,02%4)) 
(W+(.@24454)) 


TR Eni 


TOP 
ET 
ET 
ET 
31 
SET 
ET 
ET 
ET 
ET 
ET 
ET 
Su 


C 


FINALMENTE IL VOSTRO COMMODORE PET 
GRAFICO AD ALTA RISOLUZIONE CON LA 
AGGIUNTA DELLA SCHEDA VGR 
A SOLE L. 295.000 + IVA 


64000 punti (320x200) 

Memoria videografica 8kb (con indirizza- 
mento trasparente). 

Memoria ROM 2kb con sistema operativo 
G.0.S. 

17 nuove istruzioni BASIC di tipo grafico. 
Semplice installazione a connettore senza 
alcuna modifica. 

Compatibile con qualsiasi tipo di PET. 
Completo di manuale d’uso e di instal- 
lazione. 


BIOTESTING INSTRUMENTS S.R.L. 
Via Nino Bixio 17 - cap. 50019 
Sesto Fiorentino - FIRENZE 
Tel. 055/44.49.90 
Spedizione a mezzo pacchetto postale con- 
trassegno con addebito spese fisse di 
L. 10.000. 


(Specificare nell'ordine il modello del PET). 
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Figura 4 - Il listato del 
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Tape-Label 


Oramai la penna ed il vecchio lapis non servono più, ma sono sostituiti da stampanti e da 

computer; un’ampia dimostrazione di ciò ci viene fornita da Villa con l'articolo apparso su 

Bit n. 42 dove appunto ci consiglia di usare una Sharp e relativa stampante per scrivere le 
etichette per le comuni cassette magnetiche. 

Detto e fatto, ecco quindi un programma che assolve lo stesso compito di quello presentato 
sul numero di Settembre, ma creato e aggiornato per il Commodore 64. A differenza di 
quello Sharp già pubblicato, con questo programma viene invece stampato tutto in un'unica 
soluzione, come si può vedere nella figura 1. 


di Alberto De Simone 


Il programma 


c hiaramente questo programma necessita di 
una stampante VC 1525, o altra, e su un 
normale foglio è possibile stampare quattro eti- 
chette. Inoltre il programma, anche se scritto in 
BASIC V2 per il CBM 64, risulta abbastanza facile 
da convertire, in modo da farlo girare anche in 
altri elaboratori. Inizialmente il programma chie- 
de i dati dell'album registrato sul lato uno; prima il 
nome del cantante e poi quello del titolo dell'al- 
bum ed i vari titoli. In tutti i casi il nome o il titolo 
non deve superare le 19 lettere; se si inserisce un 
nome o un titolo più lungo compare la scritta che 
evidenzia l'errore ed il computer invita a modifi- 
carlo: finché non viene eseguita questa operazio- 
ne il programma resta fermo in input. Ammesso di 
aver inserito il nome del cantante della giusta 
lunghezza, ma avendo commesso un errore, 
quest’ultimo può essere modificato subito dopo, 
quando il nome appena inserito viene visualizza- 
to sullo schermo. Infatti, ad ogni visualizzazione 
del nome e del titolo appena inserito viene chie- 
sto “OK?” Se si risponde con $, vuol dire che il 
nome inserito è corretto e quindi il programma 
continua, se invece si risponde con N, viene chie- 
sto di nuovo il dato per il quale si è risposto di no. 
Quindi finché si vuole è possibile modificare il 
dato inserito, però una volta risposto con $ all'OK, 
il computer chiede un nuovo dato e non è più 
possibile modificare i dati già inseriti. Se a questo 
input si cerca di rispondere con una lettera diver- 
sadaSedaNocon un retum, il programma non 
prosegue (linee 100, 180). Per il titolo dell'album 
la procedura è la stessa, mentre i titoli dei brani 
(ne sono stati previsti undici) devono essere inseri- 
ti tutti insieme, uno dietro l'altro, ed infine verran- 
no visualizzati uno sotto l'altro. Per eventuali mo- 
difiche rispondere con N all'OK; dopo ciò verrà 
chiesto il titolo che si vuole modificare. Natural- 
mente è possibile modificare più di un titolo. Do- 
po aver effettuato la correzione degli eventuali 
titoli errati, il programma prosegue e chiede se in 
quel lato è stato usato il dolby, ed anche a questo 
input si deve rispondere forzatamente $S o N. Infi- 
ne, dopo avervisualizzato la presenza o meno del 
De» ripete la procedura, fin qui vista, per il lato 
Ue. 


Completati i dati del lato B, chiede il nome del 
proprietario della cassetta, che sarà stampato 
nella parte dell'etichetta che sarà rivolta sul retro 
della custodia; dopo ciò chiederà il numero che 
si vuole attribuire alla cassetta. Il nome del pro- 
prietario non può essere superiore a ventotto let- 
tere, mentre il numero da attribuire alla cassetta 
non può essere superiore a 999. 

Completato l'inserimento di tutti i dati chiede 

se la stampante è accesa e se lo è stampa l'eti- 
chetta completa (figura 1). 
Finita la prima stampa, se ne desideriamo ancora 
basterà rispondere con $ al prossimo input ed il 
processo ricomincia. È necessario ricordarsi di gi- 
rare il foglio quando si sono stampate le due 
etichette, per poter stampare le altre due a fian- 
co delle prime. 


Note 


La lunghezza prevista per i titoli dei brani, 19 
caratteri, può risultare poca in certi casi, na non 
può essere aumentata, altrimenti le dimensioni 
dello stampato supererebbero di gran lunga 
quelle concesse dalla custodia della cassetta. 
Questo inconveniente può essere superato scri- 
vendo su due righe il maxi-titolo, disponendo così 
di 38 caratteri, invece dei 19 previsti. | titoli dei 
brani, come si può vedere nella figura 1, sono 
stampati in minuscolo. È però possibile stampare 
maiuscola l'iniziale 0 qualsiasi altra lettera del 
titolo, digitando, in fase di input, la lettera in que- 
stione con lo shift. Ad esempio, se si vuole scrivere 
maiuscola l'iniziale di cane, basterà premere shift 
+ C e battere poi normalmente le altre lettere. 
Naturalmente al momento sarà visualizzata non 
la C, ma il relativo carattere che si trova sotto a 
destra, ed avremo quindi “-ane”, ma non preoc- 
cupatevi perché sullo stampato, al posto del trat- 
tino, comparirà la C maiuscola. Perla memorizza- 
zione dei dati e la loro successiva stampa si sono 
utilizzate matrici bidimensionali, usando una 
istruzione di dimensionamento (righe 49-50) an- 
che se non era strettamente necessario, in quan- 
to, finché gli indici non superano il valore di dieci, 
il BASIC riserva automaticamente undici celle di 
memoria utilizzabili. Dimensionando però anche 
un vettore di piccole dimensioni è possibile otte- 
nere un posto in memoria, esattamente su misu- 


ra, risparmiando quindi la memoria stessa. Per di 19 caratteri (righe 130-145, 205-220, 350-365, 
ottenere in fase di stampa tutte stringhe di ugua- ecc.). Per il resto il programma risulta essere di 
le lunghezza, anche con titoli più corti, è stata facile comprensione e non necessita di ulteriori 
usata una routine atta ad aggiungere spazi sulla spiegazioni, basti dire che le uniche poke presen- 
destra del titolo fino a raggiungere la lunghezza — ti sono per la colorazione dello sfondo. 
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SSIDE —H_|_ Sile LL N 
FRANCO BATTIATO IFERAHCO BATTIATO | 
ILA VOCE DEL PADRONE IL" ARCA DI NOE” | 
uanéf on a = IRadio Varsavia | 
Isolitary beach IClamori | 
IGli uccelli IL” esodo | 
ICuccurucucy IScalo a Grado | 
Segnali di vita ILa torre | 
Centro di Sravitaà”-|IThe new frontiera | 
permanente IVo9lio vederti - | 

| 

| 

| 

| 


Sii — RES I 102 
IFRANCO BATTIATO IFRANCO BATTIATO | 
LA VOCE DEL PADRONE IL" ARCA DI NOE” 


DOLBY YES 
PROPRIETARIO: 


De Simone Alberto 


HEKHHAAHATAAAAAAAAAAAAAAAAAAAAA 

#0 TARPE - LABEL 

*#% FOR #44 
REM 4% CEME4ZS 44% 
REM EEEKEKKEETAHAHAEEAAAAAAAAAAAAAA 
POKES3280, 7 : POKES3281.2 
PRINT "DISIEDRID Ide TAPE-LABEL Ma" 
PRINT"MTIPBBBBBBETICHETTE PER MUSICASSETTE" 
FORE=1T03000 : NEXT 
PRINT"IBIMMBNIINSERISCI CIO” CHE IL COMPUTER" 
PRINT "APICI DERDBBDITI CHIEDERA”. SINNI" 
PRINT "AIBEEDBE<PREMI UN TASTO PER CONTINUARE35" 
GETA$ : IFA8="" THEN47 
Z$= UL] LIE 4y=d 
DIMC&£2), TA$(18),T$(11,25 
DIMN$ (40), K$C2) 
FURX=1T02:POKES3281,11:POKES3280, 7 
PRINT" ‘DMSNINISIBIO" , 
PRINT "##4#######4#44####4#44######44#4######4######" 


Figura 1] 


- Etichetta 


completa da inserire nel- 
la custodia, ritagliando 
lungo i bordi e piegando 
lungo le linee tratteggia- 


te interne. 


Figura 2 - Il listato BA- 


SIC. 


(O) 
L 
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Seguito listato BASIC. 


PRINT"MMBBBDUDBDII HH SERISCI DATI" 
PRINT"'AMMBDDDBBDBBEDBDBBBLI ATO "> 
PRINT" EUOH#######################H###HH##4#######" 
FORI=1T02500 : NEXT :PRINT"7" :POKES3281.9:POKES3230, 1 
REM ### ROUTINE CANTANTE #*#% 
A$="":PRINT"EMMMNCANTANTE LATO ";X 
IMPUTC$CX5 
IFLEHC$C43)<19THENGOSUB130 
IFLEHC$£4))219THEN126 
PRINT'ERIEED IEEE NICAHTANTE LATO"; x 
PRINT" BOSTNTS TS DS Depe ia i Do a me ei |"; CC 07; "| NISTSINTSTA TS TATNTATATOI"* 
INPUT"9IOK  [S/N]";A$ 
IFR$=" "ORA$C>"S"ANDA$<>"N"THEN9S 
IFA$="N"THEN125 
GOT0150 
PRINT'ITIAHOME TROPPO LUNGO! |M L'E 


2 PRINT"ANUOYO NOME TITI"; :G0T065 


K=19-LENC(C$(47) 

FORB=1T0K 

CECMI=CE(43+2$: NEXT 

RETURN 

PRINT"I" 

REM ##% ROUTINE TITOLO ALEUM %*% 
A$="":PRINT"ANSNTITOLO ALBUM LATO"; 
INPUTTA&CA) 

IFLENCTA&(#))3<19THENGOSUBZOS 
IFLENCTA$ 4) 3219THEN195 
PRINT" BBITI TOLO ALBUM LATO"; 
PRINT" RINTSISTSTSTATATEI" 

PRINT '"IDBBBDBBIBDI |"; TAE 6; "| MIINEINSINININTA TATA 
IMPUT"9DK  [S/NI";A$ 

IFR$=" "ORA$<?"N"ANDA$<>"S"THEN175 
IFA#="N"THEN2606 

GOTOZIOA 

PRINT"TTATITOLO TROPPO LUNGO! |! a" 
PRINT"INMUOYO TITOLO ‘TITI"; :G0T0152 


3 K=19-LENCTAEC427 


FORB=1TOK 
TA$(K3=TA$C#2+2Z$: NEXT 


FORA=1TO11 

PRINT"I" 

REM ### ROUTIHE TITOLI BRANI #4#% 
A$="":PRINT"MIOINTITOLO BRANO N. ";A; 
PRINT" LATO ";X;" a 
IHFUTT$CA. #3 

IFLENST$CA, 42)>19THEN324 
IFLEN&T$CA,#)3<19THENGOSUBSSO 


LO LI LI Li Qi LI Lo i di Wii i I 
CO DI Sr OI N 
DA TASTI AUDA A LI 


Seguito listato BASIC. 


IFS=1THENZ9O 

NEXTA:S=1 

PRINT "7A bBBBBBBBBITITOLI BRAHI LATO"; ; "I" 
FORA=1T011 

PRINTA, "1 "T&A, K5;" II" :NEXT:PRINT 
IMPUT"ODE  [57N]";A$ 

IFR$=" "0RA£C>"S"ANDAE<?"N" THENSOS 
IFR$="S"THENS70 


326 INPUT"OQUALE TITOLO MODIFICO (1/111BBI";A 
IFAZBORA>11THENSZ0O 
GOTOS3O 
PRINT"I" 
PRINT'"TMMMMNATITOLO TROPPO LUNGO! | mu" 


PRINT "TMUOVO "TTITI"; :G0T02660 
K=19-LEHCT$CA,#33 

FORB=1TOK 

T$CA,KI=T$CA, #2+2$: NEXT 

RETURH 

REM ##% ROUTIHE DOLEY #4* 
G$="NOISE REDUCTION ":A$="" 

PRINT" IsIsImm8)" GE; "LATO "ji" (57N]": 
INPUTEECKI 
IFK$(K5=""ORK$CX2€2>"N"ANDK$043<>"S"THENS375 
IFK$C42="M" THENK$C42= "NO " 
IFK$C(#2="S"THENK$(42="YES" 
PRINT"IIMSMALATO ";A; 

PRINT" MISTsTemmmi; GE+k$ 000; " RETNTNDTNINTATE]"" 
IHPUT "OK [57H]"; A 

IFR£=" "ORA$&C3"5"ANDA$<>"H" THEN4GO 
IFR$="N" THENS7O 

IFW=1THEH436 

MEAT:W=1 

REM ### ROUT. PROPRIETARIO #%% 
PRINT" TIMES 

PRINT"MOME PROPRIETARIO CASSETTA": 
INPUTH$ 

IFLENCN$)<2STHENGOSUB43G 
IFLENCHN$)>28THEH472 

A$="" PRINT" TISISINISISINOSOSD DD 
PRINT"AMOME PROPRIETARIO CASSETTA" 


3 PRINT" BIDONI Bi; 14; " NINTATSININTNTNTA TI" 


INPUT"9OK — [5/N]";A$ 
IFA$=""ORASC>"N"ANDA$C>"S"THEN460 

IFR$="N"THEHGOTO0475 

GOTOSGO 

PRINT '"TIMMNSIHUOVO "; :GOTO431 

K=28-LENCN$5 :FORB=1T0K 

N$=H$+2$ : NEXT 

RETURN _ 


(O) 
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Seguito listato BASIC. 


REM #4* ROUTINE NUMERO #%* 
PRINT" IMM" 

PRINT"GUALE NUMERO VUOI DARE ALLA CASSETTA ?M" 
A$="":INPUT"OHUMERO CASSETTA € <=999 ]}_";S 
IFS<=6THENS05 
L$=STR$(5) 

IFLEN£L$)<4THENGOSUBS65 

IFLENSL$£>24THENS55 

PRINT'"IIMMMIMMACASSETTA HN.,M";" |I";L£"| SIMININDIDO" 
IMPUT"790K [S/N]":;A$ 

IFR$=""ORA#<>"S "ANDA$<>"N"THEN535 
IFA$="N"THENS6O 

GOTOEHG 

PRINT"IRBEIERSHUMERO TROPPO ALTO! 109" :NO$="" 
PRINHT"7HUOYO N"; :GOT0S05 

kK=4-LENCL$5: IFK=OTHENRETURH 

B=6 :FORB=1TO0K 

L&=L$+2%$ 

HEXT:RETURH 

REM ##*#* ROUTIHE STAMPA *44 

PRINT" IMMENSA CCENDI LA STAMPANTE" 
FORE=1T020600 : NEXT 

PRINT" ISDSISISTE TE DATE DS Te Te DI ie No Di do DD 1" 

FRINT"STAMPANTE ACCESA ? [S/N] ISISINTMISTS DA TNTSTATNTAI"' 
A$="":PRINT"9";: INPUTA$ 

IFR$=" "0RA$<?"S"ANDA£<>"HN"THEN620 

IFA$="H" THENGOO 

POKES3281,5:P0KE53280,5 

PRIPT" TISISISTSTA DETTI TASTI O 1 0 8 I 0 I 5 I 1 lee 
PRINT IDBBDDBEBBBBBBRI ATTENDERE 

PRINT "'"IBbIDpEDDppppppar—— 


I$="DOLBY " 

v$=" SIDE " 

VE= " RE e ny e. dI gg Ne I ” 
J$=" | |" 
F£=" |--_______________—_——_________----_--____=--- gu 


5$=CHR$ 8) :M£=CHR$ €14) : B$=CHR$C15) :F$£=CHR$(17) 
#$=CHR$ 130) :W4#=CHR$(1465):0$=CHR$(145) 

OPEN1I, 4 

PRINT#1.B$J$;5$ 

PRINT#1,B$" | "K$M$Ytî" A "B$"|"; 

PRINT#1,M$7$" B "B$W4$" |"S$ 

PRINT#1,B$V$;5$ 

PRINT#1,B$" I"C$C1)"1"C$(2)"1" 

PRINT#1." I"TA$C1)"I"TA$C2)"1" 

PRINT#1:V$;5$ 

FORI=1TO11 

PRINT#1,B$" l"F&T$CI,120$"|"F$T$(1,250%"|" 
HEZT:PRINT#1,5$;B$A$;5$ 


sia 


NN SS SD i LI Li I fi DD LO LO 00 00 do 


LD LD LD LD VD LD AD 00 0 n 00 00 0 00 ini 
SUICUIANGIONGNAD IAU 


Seguito listato BASIC. 
PRINT#1.B£" | "A$M$" A_N" |"; 

PRINT#1,L$" "#$" BB "W$B$" |" 

PRINT#1.E$" |"C$c1)"|"C$(2)"|" 

PRINT#1." INTAEC1>"I"TAE(2)"| "5$ 

PRINT#1,B$N$ 

PRINT&1," "I$K$C(10)" | "I$K$C2)" 
PRINT#1," 

PRINTR1." PROPRIETARIO: 

PRINT&1." 

PRINT#1," "F£H$D0$" a 

PRINTR1,V$ 

CLOSE 1 

PRINT" TISISSISISISTS TA TS TA Teo Do Bai" 

PRINT"VUOI STAMPARE ANCORA UN/ETICHETTA? MIMO" 
A$£="": [INPUT "IBBOCS/H]";A$ 

IFRE=" "ORAS<C>"N"ANDA$&<>"S"THENS10O 

IFA$="S" THEN93O 

PRINT"7" :END 

CLE:GO0T04G 
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e PERIFERICHE SOFTWARE 


SSR 
COMMODORE e ASSISTENZA TECNICA 
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Figura 1 - Le principali 
linee del programma. 


Figura 2 - Le variabili 
del programma. 


ZX SPECTRUM===555= 


Bip-bip: gioco didattico 
per l'educazione 
sensoriale 


di Dino Citterio 


G! stimoli sensoriali che oggi riceviamo sono 
talmente numerosi e non poche volte di enti- 
tà tale da arrecarci seri disturbi. Si pensi all'inqui- 
namento sonoro tipico di fabbriche e città, per 
non parlare delle discoteche. Si rifletta su quante 
stimolazioni ottiche giungono al nostro cervello 
quando assistiamo ad un programma televisivo. 
Le conseguenze più preoccupanti riguardano 
soprattutto i bambini ed in questa sede limitiamo 
il discorso all'udito. 

Pensiamo ai nostri figli: frastomati, più che stimo- 
lati, da troppe fonti sonore, faticano notevolmen- 
te a raggiungere quella che un tempo veniva 
chiamata l'educazione dell'orecchio. Eppure è 
un lato dell'educazione sensoriale estremamen- 
te importante. Un tempo nella Scuola non era 


difficile impostare con i bambini dei semplici cori 
e si giungeva abbastanza in fretta ad armonizza- 
re levoci fino a realizzare, in tempi brevi, un risulta- 
to generale più che accettabile. Non così oggi, 
malgrado il prolungato ascolto, anche in età pre- 
scolare, di cantanti e brani musicali. Sovente dal 
televisore o dall'impianto Hi-Fi escono troppi “de- 
cibel”, livelli sonori preoccupanti assalgono i pic- 
coli anche per la strada, con il risultato che al 
danno fisico vero e proprio, sopportato dagli or- 
gani dell'udito, si accompagna la mancata ca- 
pacità di discriminare suoni tra loro poco dissimili. 
Non ci sembra il caso di insistere ulteriormente in 
questo discorso. Il gioco che presentiamo è fon- 
dato sul confronto di due note. 

Bip-bip sulla porta di casa si prepara con il suo 
cercatesori ad esplorare il giardino dove il com- 
puter ha sotterrato un tesoro invisibile. Ad ogni 


Ar 1 St (AD MG RARE SR ORI ROSE iti "DIA E DE Mo 
VEDO SIRO TRNC CUT BORSE A] SP FARA a e MIO O 
0 DATA RISE Ps arno: \ernsm ine Es DS Geri 2 MNIO 
SOLO BSc PR e Ps SIP (SE VIS VI PAZAE EI DOM 
(a'Ne,f0)) 
SIOE 
17: MRI # oo 
passo di Bip-bip si sente una nota che diventa più NNO 
acuta se si avvicina al tesoro, più grave se si Mondo 
allontana. L'effetto è ottenuto ponendo uguale a 6.0.0 
36 (terzo do sopra quello centrale) la nota corri- si 
spondente alla casella del tesoro. Ad ogni mossa, ‘© [-4 
con la linea 201, viene calcolata la differenza fra si © UWN 
le coordinate del tesoro e quelle del cercatore. e £“ >» O 
Tale valore assoluto viene sottratto da 36 ed il «A i CU qa 2 
risultato costituisce l'altezza della nota che lo 3 ad | > a) 
Spectrum emetterà in base ai valori di cui a pag. 23 È un O z <A 
187 del manuale. È intuitivo che tale differenza O 25 = >> 
diminuisce avvicinandosi al tesoro (ad ogni pas- CC 0 UM Z <0 
so di Bip-bip la variazione è di un semitono) e qs : ou I°4 
meno saranno quindi i semitoni sottratti da 36. T<i60 Va >uo 


La ricerca esige anche attenzione perché non 
è concesso urtare gli ostacoli (ad ogni sbaglio si 
deve sottostare ad una penitenza che consiste 
nel risolvere un calcolo). Si è ritenuto opportuno 
colorare la strada percorsa per consentire al 
bambino una chiara visione dell'area già esplo- 
rata. Non dimentichiamo che il programma si 
indirizza particolarmente ai giovanissimi con diffi- 
coltà sensoriali legate all'udito, ma spesso non 
immuni nemmeno da difficoltà di motricità fine 
della mano. Il cercatore ha un nome, oltre che 
un'immagine. Si è voluto assecondare il processo 
di identificazione che sempre coinvolge chi sta di 
fronte ad un personaggio proposto dallo scher- 
mo, si è voluto favorire una corrente di simpatia 
fra il bambino ed il cercatore. Il gioco non ha 
ancora avuto larga base di applicazione, ma 
Non si ritiene che abbia bisogno di ulteriore tara- 
tura. Lo abbiamo sottoposto a bambini fra i 7e glli 
11 anni ed anche, confessiamolo, a qualche 
adulto. Malgrado la sua semplicità, tutti ne han- 
no tratto motivo di divertimento e addirittura ci 
sono sembrati i bambini i più pazienti nella ricer- 
ca. Raccomandiamo di conservare l'impostazio- 
ne suggerita perle mani, soprattutto bisogna cer- 
care di non guardare la tastiera e di non staccare 
le dita. Con un programma impemiato sul suono 
va ricordato che la resa sonora dello Spectrum 
non è proprio da sala concerto. È auspicabile 
allacciario ad un amplificatore di almeno 1Win 
uscita, meglio se provvisto dei controlli di tono. 
Noi ne abbiamo recuperato uno demolendo un 
giradischi ormai inservibile. Con un ingresso ad 
alta impedenza non si avranno guai di sorta. 
Quanti avessero dimestichezza con i montaggi 
elettronici potranno procurarsi un kit tra i tanti in 
commercio. Come ipotesi estrema si può far uso 
dello stesso mangianastri col quale carichiamo i 
programmi; inserite la sola spina micro prove- 
niente dall'elaboratore, mettete in play e regola- 
te il volume (ricordatevi di togliere la cassetta e di 
premere il tasto di pausa se l'apparecchio ne è 


46100 MANTOVA 
Via Cavour, 69/71 
Telex (303186) AMEDI 


Tel. 0376/329333 
c'e' gia' chi, risparmiando, ottiene migliori risultati... 


Uno staff di Programmatori e Veterinari 
ha creato per Voi il Computer per: 
se«il famoso programma dell' Industria mangimistica : 
Schedatura SCROFE & VERRI 
co ita, morta e miracoli del Vostri animali senza 
Contabilita' e Statistica 


.. fatti apposta per l' allevamento ... 


e per i Caseifici: 


Formulazione dei mangimi 
CONFERIMENTI di LATTE. 


ANTEK COMPUTER sas 


provvisto). aa 
Figura 3 - Il listato BASIC del programma Bip-bip. S Mast 
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ZX SPECTRUM EEE 


7 CRAS INKEY $="n"“ THEN LET yny- 


serporzitienaARNPepaSPotoat ti r INKEY$="m" THEN LET y=uy+ 


> istruzion ATTR (x,4)=6@ THEN GO TO 
rei | $$$$3$$$338$6 sto 


sefiofipiconegioizaze: 21 ATTR {x,4)=58 THEN GO TO 


MT GO TO 14 ATTR (x,y) =49 THEN GO TO 
18 TP INKEVEZ"Se TREN Go SUB È 
o BCREENS (x.4) ="8" THEN G 


17 PRINT AT 18,8; "LIVELLO DI C Sdi 
ALCOLO" NEXT i 

LET_f=d: LET d=e: LET e=f 
GO TO 172 


Seguito listato Bip-bip. 


(n) 


0000000100 GUMP PUDGMWM 
0000 MDPoeppairtBVOANNHA08HP09Wd 
UNA 9H906 19 C®0 900AICO0MN990IMOO 


19 PRINT : PRINT "Calcoli entr 


> it 20 - premi F -Calcoli entre 
> il 190 - premi D -" STOP 
20 PAUSE 2 PRINT FLASH 1;AT 21,0; "Hai 
21 IF FINECO?” THEN LET v=5: 4 to un albero! Penitenza.": G 
cLs Go ) SUB 382 
53 Ler 0.28 GO TO 170 
35 FOR n=@ TO ?: RERD a: POKE PRINT FLASH 1;AT 221,0; "Hai 
USR sEHRE 144+n,a: NEXT n to il recinto! Penitenza" 
38 n= TÒ ?: READ b: POKE GO SUB 382 
USR_CHR$ 145+n,b XT_n PRINT INK 2;AT x,y; "tt": GO 
n=0 TÒ READ c: POKE 76 
JSR_CHR$ 146+n,c: NEXT n PRI 
FOR n=@ TÒ 7: RERD d: POKE chi 
JSP QHOg 14740 pd; NEXT n Go 
FOR n=@ TÒ 7: READ e: POKE co 
JISR CHR$ 248+n,e: NEXT n 340 PR ASH 1;AT P,q9;"%" 
TÒ READ f: POKE 342 FÒ 3 


JSR_CHRS 149+n f: NEXT n 545 FO TO 24: BORDER INT ( 
© 7: READ 9: POKE aa narNETE; 
. . 


49 F : È 
198 HRS i5Ogn.R; NEXT n 
5 BORDER &: PAPE JRAI TROVATO IL TESORO! 


R cLs R 
5a PRINT INK FARA OO 21,0; ni FESURTO rL resGhRo 
ntessstittt DI, @; "itttsisitit tin aasttatittt î 
sapannanennenabata’ NEXT 
55 FOR X=i TO 20: PRINT INK 2; PRINT BRIGHT 1;AT 21, 0; “ce 


aT x,®:; "a"; AT i. tal un attro tesoro? (S/N 
sd 'For'xi20e +0 d48 STEP 4 INP 55% 
685 PLOT x,160: DRAW INK 2;14,1 IF au=is" THEN RUN 


3: NEXT x 
7@ LET y4=23 (V+v*RND) : LET b=» 
78 FOR x=244 TO 252 STEP 4 
82 PLOT x,160: DRAY INK 2; 255- 3 FOR z=1 10 9: TOR seas TO - 

“og TE -2: BEEP .@L,w: NEXT 
5 LET y= NEX VEXT 
3° 4-4 ade: i60: DRAW 47,09 384 PRINT AT 21,0;"“ 
98 FOR x=2 TO 6: PRINT AT x,27 ,998 PRINT BRIGHT 1;AT 21,09;a; "+ 
105 PLOT 216, 159: PRAY 8739, D BRIGHT 1; “Risultato “" 
2AU 13, è: DRAY 2,10: DRAW : 
DRAW -10: DRAW 13,0: DRAL Pas ‘500 IF c=a+b THEN PRINT INK Gi 
109 PAPER ? i "fanagnnsanessanasanzonen 
10 FOR x=i44 TO 152 STEP 2 #8": RETURN 
138 PLOT INK 2; 224,x: DRAU 8,80: 395 PRINT AT SI. 0; cf ancora sba 
PLOT INK 2: 240,x: éèrAU 8,aA: MEX conta negtio o": TO 382 
ò DATA 1 201540228, î88 
"Ze FOR y=224 TO 248 STEP 2 18 
A25 PLOT INK 2/9,144: DRAW 0,8: sti ATA 30,30,30,309,30,39,30,2 
isa d PRINT INK 2;AT 6,21; "ttstttttittt x pg 30,30,30,30,30,9 
138 FOR x=13 TO 16 190,78,59,0 
d (PRINT INK S;AT x, 19, ‘ IMMNINNE d 1567454133/1360110, 60 
FOR nai TO 27: RERD a,b DATA LI, ? zi: 37: 8270 
FOR mes TO b: BEEP .01S.m: PRINT Deo is: Sé i e 
Nb + 4; AT c,M;CHR$ 144: NEXT m: 3Eiiec 7.8 21,2 8; è, &a,a6.ì; 2458, 
N ai +5, 
îs2 FOR n=1 TO 2: AD a,b: PRI 9801324" 949449:14274® 
NT INK, 4; AT a,b; Carso 150° REEP_, sa” PE; 28 sia 5,6 pi Re ;3 tè 4 
386 PRINT INK 7;AT 12,18; "_" 3:53; 183 7748 Mr: sé 14, 16,48,44/46 ga? 
189 PRINT _INK 4i8T 4,34; CHRe 14 t4i 14} 16, pù 255 65 18,18,26, 19452 
5; AT p-ad: CHRe 146; AT 33; 16, 
146; AT _ 15,6; CENE SABTE: di cHR 79 DATA 1 25 22, 4) 28, in; 
sei Ri attia: iarenas 105; At i sia 26 24,94 
CHA 145 car: 1603 PRINT “Nel 
IRA itoszEo, caspnanne» i LET e [Ml acdino 1 iceatosinzoni 
= + * te) o a are a 
36 OR p<c7 AND qa>23 THEN GO Pia i L "pe fartl ere v 
2? È] A P and atto 
1565 LET d=20: LET es°5 , , a Z p and basso 
168 PRINT INK Sl eye; » è M Pp and destra 
179 LET x=6: L va 2 a N | and sinist 
1728 LET k=1: LET =CHR$ 147 PR : P Fai at 
180 IF d>e THEN LÈ Ra-k: LET =» BI la a » le; qu 
s=0HR$ 148 i ici al divent 
185 FOR jsd TO e STEP k elica 3 ° " 
398 ori È. gr S;jAT 13,j-k; "IR; 5 ERI Se com 
a d-L-k; “I° 4 ror re _ una 
199 PRINT AT 213,j;a%;ST 15,j-1; 2 5 1,9; "Pp 
a 2 to iare." 
300 PRINT AT St pg erre 149 = cus 
201 BEEP .2,36-ABS SPIA? cis 
203 PRINT INK 6; AT, 
205 IF INKEYgi="* ti Bo rTo 248 
339 IF INKEY ="a" THASN LET x=x- 1626 PRINT AT 2 
i . 
2835 IF INKEY%="2" THEN LET x=x+ i Sii 


